? COMPILE DUMP/ANALYZE AaLGOL LIBRARY 


PACKET 956 


INPUT 
TAME 
DATE 


597 CARDS FROM Z]P ~ 
1044 
77314 MONDAYs 11/07/77 


*** BURROUGHS B5700 DCMCP MARK XVI.0e178 AND INTRINSICS MARK KXVI,0,132 *#* 


#NO MESSAGES TODAY 


10341318 
19241318 
1034493919 
10241319 
10244225 
10344227 
10%44331 
10'414332 
49244345 
19344446 
10344246 
qOraasag 
190844349 
10844349 
190344354 
10245310 
10345325 
19345325 
19345326 
19346840 
10546255 
190246355 
10346%56 
19346856 
190'46:%57 
10446357 
19246358 
10347301 
10%47302 


? COMPYLE DUMP/ANALYZE ALGOL LIBRARY 
? ALGOL FILE TAPEs SYMBOL/DUMPANL DISK SERIAL 
? FILE LINES LINE PRINT OR BACK UP 

? DATA CARD 
5tALGOL/DUMP= 2 BOU 1041 11/04/77 
COB IN CARD DBSALGOL/DUMP= 2 
DKA IN SER SYMBOL DUMPANLYSALGOL/DUMPs 2 
PBDO957 OUT 0411 LINESALGOL/DUMP= 2 
DKA OUT RpM DUMP ANALYZESALGOL/DUMPs 2 
DKA OUT SER DSK2 SITFEEALGOL/DUMPs 2 
DKA OUT SER DSK! SITESALGOL/DUMP= 92 
COB REL CARD DBYALGOL/nUMPsa 2 

? END, 
DKA REL SYMBOL DUMPANL?:ALGOL/DUMP= 
OKA OUT SER DSRT1 SITES ALGOL/DUMP= 
DKA OUT SER DSRT2 SITESALGOL/DUMP= 
DKA REL DSRT1 SITESALGOL/DUMPs 2 
DKA REL DSRT2 SITESALGOL/DUMPs 2 
DKA OUT SER DSRTY SITEtALGOL/DUMPs 
DKA OUT SER DSRT2 SITESALGOL/DUMPs= 
DKA REL DSRTy SITEtALGOL/DUMPs 2 
DKA REL DSRT2 SITESALGOL/DUMPs 2 
DKA REL DSK2 SITE:ALGOL/DUMP= 2 
DKA REL DSK{1 SITES ALGOL/OUMPS 2 
PBNO957 REL O11 LINE 59318ALGOL/DUMP= 2 
DKA REL DUMP ANALYZEsALGOL/DUMP= 2 
ALGOL/pUMPe 2 SYNTX FRR 1046 
FOR ALGOL/DUMP= 2: PROCESS= 257 SECS» 10= 143 SECS» OLaAYs 5 
PKT#0956 REMOVED 
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LABEL 
XV1,0,122 


OOOO0O0000LINE 
MONDAY®s 


00177311? COMPILE DUMP/ANALYZE ALGOL LIBRARY 
11/07/77» 10841 AM, 


DUMP /ANALYZE 


Sot e reece 
SSeS S asa ase Sssaeas 


SOURCE FILEs SYMBOL /DUMPANL 


COMMENTS * TITLE? B5500/B5700 MARK XVI SYSTEM RELEASE 

* FILE 1D! SYMBOL/DUMPANL TAPE 1D% SYMBOL2/FILE000 
* THIS MATERIAL 18 PROPRIETARY TO BURROUGHS CORPORATION 
* ANn 1S NOT TO BE RePRODUCEDs USED» OR DISCLOSED 
* EXCEPT IN ACCORDANCE WITH PROGRAM LICENSE OR UPON 
* WRITTEN AUTHORIZATTON OF THE PATENT DIVISION OF 
* BURROUGHS CORPORAT]ONs DETROIT» MICHIGAN 48232 
* 
* 
Eo 
* 


COPYRIGHT cC) 197 8 1972» 
BURROUGHS CORPORATION 
AA332366 
DUMP/ANALYZE 
PATCHED 6/4/74 11/21/73 
SEVFRAL OPTIONS ARE AVAILABLE FOR CONTROLLING THE ANALYSIS 
OF A MEMORY DUMP, THEY MAY BE CLASSIFIED INTO FOUR CATEGORIES: 


1974 


AA320206 AA386657 


te THOSE WHICH SPECIFY THE FORMAT OF THE PRINTOUT OF MEMORYs 
SPLASH nUMP,OCTAL DUMPsALPHA/OCTAL DUMPeOR ALPHA DUMPS 
FITHER SINGLY OR DOUBLY SPACED, 


11. THaSE WHICH INCLUDE OR EXC),UDE AREAS OF MEMORY NOT OTHERWISE 
INCLUDED oR EXCLUDED? 

te INCLUSION OF AVAILABLE AREASe 

2, EXCLUSION OFS 

Ase MCP CODE AREAS, 

Be NORMAL STATE CODE AREAS, 

Ce NORMAL STATE AREAS OTHER THAN THOSE RELATING TO ONE . 
SPrcIFI¢ MIX INDEX WHERE THE MIX INDEX IS SPECIFIED BY THE USER, 
De ENTr+RE CONTENTS OF MEMORY 

TI}. THOSE WHICH CAUSE OMrSS10nN OF CERTAIN SECTIONS OF ANALYSIS: 
1s OMISSTON OF THE PRINTOUT oF MCP PRT IDENTIFIERS* SORTED 
ALPHABETICALLY AND BY PRT LOCATION, 


IV, THoSE WHICH CoNTROL THE DUMPING OF STACKS! 

fe EXC\USION OF ALL NORMAL STATE STACKS EXCEPTING THE ONE 
BELONGING TO THE SAME MIX INDEX AS THE ONE SPECIFIED BY THE USER, 
2e INCLUSION OF A USER SELECTED "STACK" AREA WHICH THE 

ANALYZER WOULD BE UNABLE To LOCATE WITHOUT THE USER"S ASSISTANCE. 


THE MAJORITY OF OPTIONS MAY BE SET USING A COMMON CONTROL 
CARD$ A FEW MAY Be SET ONLY VTA THE "IN" MESSAGE TO ALTER THE 
CONTENTS OF CERTAIN PRT CELLS WHICH HAVE BEEN’ RESERVED FOR 


CONTROL FUNCTIONS, ; 
e 


( 


x BHR He HHH HR EE 


00000001 
00000002 
00000003 
00000004 
00000005 
00000006 
00000007 


00000008 © 


00000009 
00000010 
00000011 
00000012 
00000013 
00000015 
00000020 
00000025 
00000030 
00000040 
00000050 
00000055 
00000060 
00000070 
00000080 


00000110 
00000120 


00000430- 


00000140 
00000150 
00000155 
00000160 
00000170 
00000180 
00000205 
00000210 
00000220 
00000230 
00000240 
00000250 
00000255 
00000260 
00000270 
00000280 
00000290 
00000295 


ALGOL 
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/DUMP 


00018000070 


0001!0000%0 


0001%0000:0 
00014000030 
0001%0000:0 
0001200000 
00014000030 


00042000070 
0001#000030 
0001:0000%0 
0001#0000t0 
0001200000 


00013000080 ~ 


00011000010 
0001:000080 
000110000:0 
000141000080 
00041000030 


00048000080 ~~~ 


0001?0000t0 
0001#000030 
00018000080 


00013000030 
0001000020 


OOOLF0000I0 


0001#000080 
00013000030 


00018000020 


00014#000080 
00014%000080 


(00014000080 ~ 


0001700000 
000130000:0 


~ OOOLFO000I0 ~~ 


0001!000030 
0001!0000:0 


000170000810 ~ tT 


0001%000030 
0001!0000:0 


00014000030 - 


0001%0000:80 
0001#0000!0 
000144000030 


~~ 0004F0000I0 
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THE COMMON CONTROL CARD IS ASSUMED To CoNTAIN AN EIGHT DIGIT 
NUMBER@e@IF LESS THAN EIGHT APPEAR® LEADING ZEROES ARE 
AUTOMATICALLY SUPPLIED. THE ANALYZER SEPARATES THE 8 DIGITS INTo 
TWO GROUPS? 


Ae THE 5 LEFT"MOST DIGITS ARE EXPECTED TO BE *OCTAL* DIGITS 
WHICH REPRESENT THE TOP*OF*@STACK ADDRESS OF THE USER SPECIFIED 
"STACK" ARFAs IF ANY DIGIT EXCEEDS "7" OR IF ALL FIVE ARE ‘tO', 
ONLY STACKS LOCATEN BY THE ANALYZER WILL BE DUMPED, OTHERWISEs 
ONE ADDrTYONAL "STACK's PROVIDING IT ALREADY HAS NOT BEEN DUMPED, 
WILL BE DUMPED STARTING AT THyS ADDRESS AND CONTINUING UNTIL 
200CDECrMA!,) WORDS BELOW IT HAVE BEEN PRINTEDC THE STACK IS 
ASSUMED To BE A CONTROL STATE STACK FOR PURPOSES OF STACK 
ANALYSIS), SHOULD MORE OR LESS STACK BE DESIRED* THE AMOUNT 

€ IN DECIMAL) OF STACK TO ANALYZE CAN BE ENTERED INTO PRT CELL 
27CO0CTAL) USING THE "IN MESSAGE, 

IN MOST CASES* THE TOP"OF "STACK VALUE USED MAY BE THE SETTING 

OF THE "S" REGISTER TAKEN FROM THE DISPLAY PANEL AT THE TIME 

OF THE HANG. IF NO TOP*OF@STACK 1S SPECIFIED THE ANALYZER WILL OBTAIN 
ONE FROM THE CONTROL STATE MScW LOCATED IN CELL 7, THE STACK 
OBTAINEn tN THIS MANNER IS GENERALLY OF INTERESTs ESPECIALLY WHEN 
LINKS HAVE BEEN CLOBBERED, 


Be THE RIGHT@MOST 3 DIGITS ARE INTERPRETED AS DECIMAL DIGITS 
AND SERVE To SET THE MAJORITY OF ANALYZER OPTIONS, GENERALLY 
SPEAKING» THESE OPTIONS ARE INTEGRAL POWERS OF 2a ARE INDEPENDENT 
OF ONE aNOTHER AND MAY THEREFORE BE USED ADDITIVELYs» THAT ISe 
THE COMRINED FUNCTIONS OF COMMON VALUES 291632» AND 64 
COULD Br INVOKEn BY "COMMONR114%(24+164324+64), THE EXCEPTIONS 
TO THIS RULE WILL BE ELABORATFD AFTER EACH COMMON OPTION 1S 
DESCRrBeD tN DETAIL. 

COMMON CARD OPTIONS 


NOTE’ In THE DESCRIPTION OF EACH OPTION» 317 1S ASSUMED THAT A 
STANDARD MEMORY DUMP ANALYSIS IS OBTAINED *EXCEPT* FoR THE 

DIFFERENCES GENERATED BY THAT PARTICULAR OPTION, A "STANDARD" 
ANALYSIS IS ONE OBTAINED WITH No COMMON VALUECIn Eo COMMON=0), 


COMMON=0, . . . : 
YIELDS A STANDARD ANALYSIS» AN MCP/PRT FILE IS REQUIRED, 


COMMONS4, 

YIELDS A "SPLASH"sUNANALYZED DUMP OF MEMORY*® NO MCP/PRT IS 
REQUIREN, A "COMMENT® ENTERED WHEN THE DUMP TAPE WAS CREATED 
1S ALSO PRINTED, 


COMMON#O, 
DUMPS ALL AVAILABLE AREAS, 


COMMONRG, 
EXCLUDES ALL NORMAL STATE OBJECT CODE, 

THIS IN@LUNES ALL PROGRAM SEGMENTS ASSOCIATED WITH A 

MIX YNDeX AND ALL 1NTRINSIC SFGMENTS, 


COMMON=B, 
EXCLUNES ALL MCP OBJECT CODE, 


00000300 
00000310 
00000370 
00000330 
00000335 
00000340 
00000350 
00000360 
00000370 
00000380 
00000390 


00000400" 


00000410 
00000420 


00000430— 


00000435 
00000440 
00000445 
00000450 
00000451 


00000452 © 


00000453 
00000455 
00000460 
00000470 
00000480 


00000490. 


00000500 
00000510 
00000520 
00000530 
00000540 


00000550" 


00000560 
00000570 
00000580 
00000590 
00000600 
00000610 
00000620 
00000625 
00000630 
00000640 
00000650 


“ 00000660 - 


00000665 
00000670 
00000680 
00000765 
00000770 
00000780 
00000790 
00000800 
00000815 
00000820 
00000830 
00000845 
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0001440000:%0 
000140000380 
0001000070 © 
00011000030 
00011000030 


00014000030 


00014000080 
0001%?0000%0 


000480000:Q070°77 


0001000020 
0001000030 


000130000:0 ~ °° 


0001000080 
0001#000080 


0001:000030 | 


00014000080 
00014000080. 
0001!0000%0 
000140000380 
00014000080 
0001 #000080 
00044000080 
0001#000080 
00014000080 
00014000080 
0001800000 
00012000030 © 
0001000080 
00014000010 


00018000030 9 ~~ 


0001000030 
0004%0000%0 


“00073000050 ~ 


00013000030 
00014000030 
00014#0000t0 
000120000180 
00018000020 


00018000080 ~~” 


00017000030 
00013000030 
00018000080 © 
000120000!0 
00013000030 


© 00018000080 


000430000:0 
0004#000030 


00012000010 7 ~~ 


00014000050 
0001%0000:0 


00012000080 ~ 


0001:000080 
0001%000030 
00017000080 
0001#0000:%0 
0001#0000!0 


00048000080 UT 
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COMMON=46, 
CAUSES CERTAIN ARRAYS SELECTED BY THE USER To BE DUMPED» 
SEE THE COMMENT AT SEQUENCE #00807480 FOR DETAILS, 


COMMONS32, 
INHTBITS THE DUMP OF THE MCP PRT IDENTIFIERS SORTED 
ALPHABETICALLY AND BY PRT LOCATION, 


COMMON=64, 
YIELDS AN OGTAL*ONLY DUMP OF MEMORY FORMATTED SIX WORDS/LINE, 


COMMON=428, 

YIELDS AN ALPHA/OCTAL DUMP OF MEMORYe EACH PRINTED LINE 
CONTAINS FOUR WORDS OF OCTAL FOLLOWED» ON THE SAME LINEe BY 
THEIR ALPHA EQUIVALENT, 


cCOMMONS256, 
LAST PATCHED 12/11/73 
YteLpS AN ALPHA DUMP OF MEMORY FORMATTED TWELVE WORDS 
OF ALPHA PER PRyNTED LINE, 


COMMONE384, 

COMPLETELY INHIBITS THE PRINTOUT OF THE CONTENTS OF MEMORY. 
THIS DOES NoT IMPLY THAT MEMORY IS NOT ANALYZED: VERIFICATION 
oF MEMORY LINKS IS MADE+ THE BED AND SLATE ARE CHECKEDs 
STACKS ARE LOCATEDSETCe 


COMMONS512 

CAUSES THE CONTENTS OF THe "ARGH ARRAY TO BE PRINTED UP TO THE 
LAST VALIN WORD POINTED TO BY "VYECH",. THIS INFORMATION IS PRESFNT 
ONLY WHEN AN MCP PATCHsTHE "ROTO" PATCHe HAS BEEN COMPYLED INTO THe 
MCP, 


PRT CELLS WHICH EXERCISE CONTROL FUNCTIONS 


NOTES PRT LOCATIONS SPECIFIED REFER To OCTAL PRT LOCATIONS FOR 
USE IN AN "IN" MESSAGEs 


PRT 25, 

THIS CELL IS NORMALLY SET FROM THE RIGHT@"MOST 3 DIGITS WHICH 
APPEAR ON A COMMON CARD$ HOWEVER» THEY MAY BE EXPLICITLY SET 
AND/OR MODIFIED DURING EXECUTION OF THE ANALYZER VIA THE "TIN" 
MESSAGE: 


PRT 26, 
THIS CELL CAN BE USED TO ENABLE A DUMP*BY=MIX*INDEX, IF SET 
To A NON@ZERO DECIMAL NUMBER EQUAL TO THE MIX INDEX oF A yoB IN 
THE MIX AT THE TIME THE DUMP IS TAKENe IT WILL CAUSE MEMORY AREAS 
BELONGING TO OTHER MIX INDEXES TO BE EXCLUDED FROM THE ANALYSIS, . 
NOTE THaT IF THE CONTENTS OF THIS CELL DOES NOT CORRESPOND TO A 
VALID MYX INDEX» *NO* NORMAL STATE STACKS WILL BE DUMPED NOR 
WILL aNy NORMAL STATE AREAS ASSOCIATED WITH ANY MIX INDEX BE 
PRINTED. 


PRT 27, 
THIS CELL MAY BE USED ONLY 1N CONJUNCTION WITH THE 


00000850 
00000860 
00000870 
00000875 
00000880 
00000890 
00000900 
00000905 
00000910 
00000920 
00000945 


00000950 


00000960 
00000970 
00000980 
00000985 
00000990 
00000999 
00001000 
00001010 
000014015 
00001020 
00001030 
00001040 
00001050 
00001060 


00001070 


00001072 
00001073 
00001074 


00001075 
00001076 


(00001077 


00001078 
00001080 
00001085 
00001090 
00001100 
00001110 
00001120 
00001130 
00001140 
00001150 
00001160 
00001165 
00001170 
00001180 
00001190 
00001200 
00001210 
00001220 


“00001230 


00001240 
00001250 
00001255 
00001260 


00001270 © 
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0001%0000!0 
0001#000040 


~000170000F0 © 
“0001#0000:0 


0001%000080 


0001300000 —— 


00012000030 
00012000030 


00018000080. 


0001#0000%0 
000140000%0 


0001480000°0° 


00014000080 
0001%0000%0 
0001!'0000%0 
0001#0000%0 
00018000080 


~ 900180000807 - 


0004#0000190 
00013000080 


“00018000080 ~~ 


0001#50000!0 
0001%0000480 


~ 00013000030 


0001:0000%0 
00013000020 
0001000030 
0001000030 
000130000%0 
00013000080 
00011000030 
0004#000030 


(00048000080 ~~ 


0004#0000t0 
0004#0000%0 
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00014000080 
00013000080 


00012000010 
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00013000020 
00042000020 
00013000080 
00012000020 
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00012000030 
0001%0000:0 
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00011000080 
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PREVIOUSLY DESCRIBED COMMON CARD CONVENTION OF SPECIFYING AN 
OCTAL STACK ADDRESS AS THE FIRST 5 DIGITS OF THE COMMON VALUE, 
1F MADE NON#ZEROs THEN THE DECIMAL VALUE ENTERED IN CELL 27 
WILL DETERMINE THE AMOUNT OF STACK DUMPED BELOW THE TOP=OF STACK 
VALUE, IF LEFT ZERO» THE DEFAULT AMOUNT OF STACK DUMPEDCAND 
ANALYZED) WILL BE 200CDECIMAL) WORDS, 


PRT 30, 
THIS CELL» IF SET To 4» WILL CAUSE THE PRINTOUT oF MEMORY 
TO BE DQUBLE*SPACED, OTHERWISE» THE PRINTOUT IS SINGLE"SPACED, 


PRECEDENCE OF OPTIONS aND SUGGESTIONS FOR COMBINING THEM 


AS STATED EARLIER» COMMON OPTIONS MAY BE USED SEPARATELY 
OR IN COMBINATION, ALTHOUGH MOST COMBINATIONS ARE ALLOWED» THERE 
ARe IMPORTANT EXCEPTIONS. THF RULES ARES 
1. A COMMON VALUE OF 1 PRECLUDES THE USE OF ALL OTHERS, 
2, A COMMON VALUE OF 512 PRECLUDES THE USE OF ALL OTHERS BUT 1, 
3. A CoMMON VALUE OF 384 PRECLUDES THE USE OF ALL REMAINING 
COMMON VALUES EXCEPT FOR 16 AND 326 NOTE THAT 384 IS THE 
SUM OF 1284256. 
4s COMMON VALUES 29428916» AND 32 ARE TOTALLY INDEPENDENT AND 
ADDITIVE IN ALL POSSIBLE COMBINATIONS, 


SOME SPECIFIC EXAMPLES OF COMMON OPTIONS 


Aw “COMMONS35721432", % 

THIS CAUSES A "STACK" aT 35721 TO BE DUMPED ALONG WITH 
OTHER STACKSS NONE OF MEMORY 1S PRINTED(C384)»9 THE MCP PRT 
TDENTIFTERS ARE NOT PRINTED(32), AND SELECTED ARRAYS ARE 
DUMPEND¢+62, THrS COMBINATION MyrGHT BE USED TO PROVIDE A 
MINIMUM OF OUTPUT AFTER A MEMORY DUMP HAS BEEN ONCE ANALYZED BUT 
AFTERWARDS FOUND TO HAVE MISSED A STACKCIN THIS CASE» 
LOCATED NEAR ADDRESS 35721), 
Be “COMMONE12", 

THIS FLIMINATES ALL OBJECT CODE FROM THe PRINTOUT OF 
MEMORY, 
C. "COMMONS66", 

THES ENSURES THAT AVAILABLE AREAS ARE ALWAYS PRINTEDC2) 
AND PROVIDES THAT MEMORY IS PRINTED IN OCTAL FORMAT ONLYC64), 
De “COMMONSB", 

THIS TOGETHER WITH PRT 26 SET To A VALID MIX INDEX REDUCES 
THE AMOUNT OF OUTPUT OBTAINED DURING A MIX*ONLY DUMP, NO 
MCP CODE IS PRINTED LEAVING ONLY NON*@MCP CODE AREAS BESIDES 
THOSE RELATING TO THE MIX INDEX BEING DUMPED, 
STATE Stack DUMPED IS THE ONE BELONGING TO THE PARTICULAR MIX 
INDEX, 


PROCESSING MULTIFILE DUMP TAPES 


THE ANALYZER WILL AUTOMATICALLY PROCESS, IN A GIVEN RUNsg ALL FILES 
ON A *"DpmT* TAPE [TF LABEL EQUATION IS MADE TO ANY FILE BEYOND THE 
FIRST OnE, THE ORDER OF ANALYSIS IS OPPOSITE THAT OF CREATION, FoR 
EXAMPLE,» IF LABEL EQUATION IS MADE To THE FOURTH FILEr “FILE MDUMPR=2 
MEMORY/pUMPOO4™» THE FOURTH FILE IS FIRST ANALYZED* THE THIRD NEXT» 
THE SECOND AFTER THAT ONE AND THE FIRST FILE LASTe AS PROCESSING OF A 
NEW FILe IS BEGUN» A MESSAGE 1S WRITTEN TO THE CONSOLE SO THAT THE RUN 


FINALLYs THE ONLY NORMAL 


00001280 
00001290 
00001300 
00001310 
00001320 
00001330 
00001335 
00001340 


~ 00001350 


00001360 
00001370 
00001380 
00001390 
00001400 
00001410 
00001420 
00001430 
00001435 
00001440 
00001450 
00001460 
00001530 
00001540 
00001550 
00001560 
00001565 
00001570 
00001580 
00001590 
00001600 
00001610 
00001620 


00001630" 


00001640 
00001650 
00001660 
00001670 
00001690 


00001700. 


00004710 
00001730 
00001740 
00001750 
00001760 
00001770 
00001790 
00001800 
00001900 
00003000 
00003005 


00003010 


00003020 
00003030 


00003040° 


00003050 
00003060 
00003070 
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000130000:0. 


000120000:%0 


0001%0000%0 ~~ 


00015000080 
00012000080 
00015000030 
0001#0000t0 
0001#0000!30 


00017000080" 


00018000080 
0001%0000380 
00014000030 
00013000030 
0001000030 


00013000030 


0001%000030 
00013000030 


000480000!0 ~ ~~ 


0001!000030 
00014000030 


00017000080 ~~ 


0001!0000t0 
0001#0000!0 
0001#000030 
00018000080 
0001300009 


00018000020" 


0001#0000:0 
0004000080 


000170000380" ~ 


000140000:0 
0001000030 
0001%0000350 
00012000080 
0001%000030 
00013000080 
0001#000030 
000142000030 


000180000%0 


00017000080 
0001%0000?0 
00013000030 
0001+0000!80 
00014000030 
00013000030 
00018000030 
0001#0000:0 


0001#0000%0 ~ 


0001%#0000:%0 
00015000030 


000148000080° 7 


00011000080 
0001%000030 
0001000010 
00013000030 
0001:0000:0 
00012000030 
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MAY BE nISCONTINUED IF NO FURTHER FILES ARE TO BE ANALYZED. 


A COMMON VALUE MAY BE INCLUNED {N THE COMMENT PORTYON OF THF 
REMARKS ENTERED AFTER A "DPMT® COMMAND OR AFTER KEYING IN THE UNIT 
WHEN USING THE MEMORY DUMP DECK, 
» WHERE *"ComMMON® MAY BE ABBREVIATED AS "Com" AND MUST BEGIN NO LATER 
THAN THE 140"TH CHARACTER oF THE MESSAGEe A COMMON VALUE ENTERED 
IN THIS MANNER OVERRIDES ANY WHICH MAY BE SUPPLIED BY LABEL EQUATIONs 
ONE EXAMPLE IS: “DPMT COMMON#363 ALL JOBS APPEAR ASLEEP," 


BEGIN 


BOOLEAN COMMONS 
INTEGER PRT263 HMEFINE ONEMIX#PRT2643 % FOR NUMPING ONLY ONE JOB 


INTEGER PRT273 pEFINE MYSTACKSIZFRPRTO7#} & TF #02 AMT BELOW MYSTACKADR 


BOOLEAN PRT303 DEFINE DOUBLESPACESPRT30#s% DBL=SPACE DUMP OF MEMORY 
BOOLEAN PRT343% RFE 
BOOLEAN PRT323% USED FOR DEBUGGING THE ANALYZER 


INTEGER MYSTACKADR$% IF COMMON GTR MAXCOMMONVALUE® IT PNTS TO A STACK 


DEFINE DUMPAVAIL=COMMONS£4681]#3 % COMMON=2 DUMPS AVAILABLE AREAS 


DEFINE NONORMALCODE=COMMON,£45%4]#3% COMMON=4 PONT DUMP TYPE 197013 CODE 


DEFINE NOMCPCODE=COMMONe(443134#3% 8=DONT DUMP MCP CODECTYPES=1 eMIX=0) 
DEFINE nUMPTABLES=COMMONe(43214)43% 16=DUMP SELECTED ARRAYS 
DEFINE nONTDUMPRTSCOMMONe(42t1)#32COMMON=32 STOPS pP OF PRT 


DEFINE nUMPOCTALONLY=COMMON, C41:1)#3% 64=UNCONDITIONAL OCTAL ONLY DUMP 
NEFINE nUMPALPHAOCTALS=COMMON,f4o21]43% 128=pUMP MEMORY IN ALPHAsOCTAL 


DEFINE nUMPALPHAONLY=COMMON,(3931]4#3% 256=pUMP MEMORY IN ALPHA ONLY 
DEFINE NODUMPSREALCCOMMON),£39%2]=3#3% 384=0M]1T DUMP OF MEMORY 


DEFINE nUMPCESSPOOLONLY=COMMON.£388141]#3% 512=DUMP ONLY THE "ARGH" ARRAY 


DEFINE MAXCOMMONVALUES102343% 
FILE IN DISK DISK SERIAL "MCP #PRT"(2,30)3 
FILE IN MDUMP 2€20533)3 % DISK=533» TAPE=513 
FIle SPo 11¢110)3 : 
FILE P 40391793 
PROCEDURE PRINTCOMMONVALUES? 
BEGIN — 

INTEGER 173 


SWITCH FORMAT COMINFO#t= 


C/7/"THE COMMON VALUES AVAILABLE AREI"™/)e 

C"CaMMONFO YIELDS A STANDARD MEMORY DUMp AND ANALYSIS," e 
C"COMMONS1 YIELDS A SPLASH DUMP WITH NO ANALYSIS¢')e 

C"COMMON=2 PRINTS AVAILABLE AREAS,")# 

C"COMMON=4 OMITS NORMAL STATE CODE SEGMENTS e«")# 

C"COMMON=8 OMITS MCP CODE SFGMENTSe")» 

C"COMMON=16 CAUSES CERTAIN USER DEFINED ARRAYS TO BE PRINTEN,")» 


C"COMMON=32 OMITS THE PRINTING OF THE SORTED MCP PRT IDENTIFIERS«™)» 


C"COMMONS64 CAUSES MEMORY TO BE PRINTED ENTIRELY IN OCTALg™) >» 


C'COMMON=4128 CAUSES MEMORY TO Be PRINTED ENTIRELY IN ALPHA/OCTAL,"), 


C™COMMON=256 CAUSES MEMORY TO BE PRINTED ENTIRELY IN ALPHA, )e 


C’COMMONS384 CAUSES NONE OF THE CONTENTS OF MEMORY TO BE PRINTED, ™)s 


C"™COMMON=512 DISPLAYS THE CONTENTS OF THE ARGH ARRAYe"/)¢ 
C"FOR ADDITIONAL INFORMATION® CONSULT THE FIRST SEVERAL "a 
"PAGES OF THE FILE#SYMBOL/DUMPANL,")3 


FOR 1t=0 STEP 1 UNTIL 13 pO WRITECPeCOMINFOLII3 


THE SYNTAX ISt "COMMON="<COMMON VALUE> 


Z103= 


START OF SEGMENT 


START OF SEGMENT 


00003080 


00023001430 ° ~ 777” 


“2 


3 


T 000130000:0 
00003090 T 00014000080 
00003100 T 000180000t0 ~ 
00003110 T 0001#0000:0 
00003120 T 0001#000030 
00003130 T 0001!0000:0 
00003140 T 00012000030 
00003150 T 0001#0000%0 
00003160 T 0001:0000t0 
00003170 T 0001:0000:0 
00003800 T 0001:0000:0 
2K ok oe OK OK OK OK OK 
00003900 T 00022000030 
00004000 T 000230000!0 
00004100 T 00024000030 ~ 
00004200 T 0002:0000t0 
00004300 T 00028000080 | 
00004400 T 0002%0000%0 
00004500 T 00023000080 
00005000 T 0002!000030- 
00006000 T 0002%000030 
00007000 T 0002:0000:0 
00008000 T 0002!0000:0 
00009000 T 0002:0000!0 
00010000 T 0002:0000:0 
00011000 T 0002:0000!0 
00012000 T 000210000!0 
00042500 T 00023000030 
00013000 T 0002:%0000:0 
00016000 T “0002:0000:0 ~ 
_ 00016500 T 0002:0000:0 
00046510 T 00023000333 
00016520 T 0002:0007:2 ~~ 
00016530 P 00023001031 
00017000 T 00023001410 
00017010 T 
00047020 T 00024001410 
ek kK A ok Ao ok 
' 00047030 T 0003!0000%0 
AR kK RK 


START OF SEGMENT 


1S 


00017040 
00017050 
00017060 
00017070 
00017080 
00017100 
00017110 
00017120 
00017130 
00017140 
00017150 
00017160 
00017170 
00017180 > 
00017190 

190 LONGs 
00017200 T 


AA AHHAA AHHH 


0004#0000370 
000430000320 
0004:0000%0 
0004:0000%0 


00043000030 ~ 


0004:000030 
00042000030 
0004:0000:0 
00043000030 
000420000:0 


00048000030 
0004000030 
000420000!0 
0004%0000:0 
NEXT SEG 

00032000030 


4 


~ 000420000:0 © 


3 


FNn PRINTCOMMONVALUES? 


BOOLEAN DONTPRINTLINKS«eMYSTACKDUMPEDS ‘ 
FORMAT FINI C4S9eret),* END OF DUMP ANALYZE ",49¢ tet) D5 


INTEGER PRTMAX*# INTMAXe INFOMAX3 
DEFINE PRTRBASE=42943%FIRST PRT CELL ALLOCATED BY ESPOL 
DEFINE aACTUALPRTBASE=11243% FIRST PRT CELL AS PER MCP DEFINE 
DEFINE PRTSMAX=100#3 % UPPER LIMIT OF PRTS ARRAY 
REAL LEVEL» SUBLEVEL» VERSIONS 
INTEGER KLASS3% IDENTIFIER CLASS*#AS DETERMINED BY ESPOL 
INTEGER NAMESIZEsNAMSSIZE3 
DEFINE NSNAMEPLNSNAME JSNAMEPFNSNAMEL1,(8310743 
INTEGER INAMESIZEeINAMSSIZE3 
DEFINE :SNAMECISNAMESJ=INAMELISNAME(),08310]#43 
ARRAY SFGZEROL0:2973 
BOOLEAN MCP3% FILL/PRT DETERMINED WHAT MODULES WERE INCLUDED 
STREAM PROCEDURE MOVECS#D*W)s VALUE We 
BEGIN Sre=S3 Dls=p3 DSt= W WOS 3 END MOVE? 
PROCEDURE RUSTCONMONS 
BEGIN 
REAL MYeD3 


ARRAY Tr03043 
FORMAT FUME pL oy tte X73 


REAL STREAM PROCEDURE oCTDEc(C); VALUE C3 
BEGIN SI*LoC C3 DieLoC OCTDECs DS+eDEC END; 
BOOLEAN STREAM PROCEDURE NOTSOCTADES(C)3 VALUE C3 


BEGIN SI*LOC C3 SCIF Sc GTR "7" THEN BEGIN TALLY*13 JUMP OUT 


_ END ELSE SI*SI+1)3 NOTSOCTADES*TALLY END; 
STREAM PROCEDURE DECOCT(D201202)3 VALUE D3 
BFGIN SI*LOC Ds DreOLsnS*SOCTsD1¢023p0S*30CT ENDS 


IF NOTSOCTADESCD*OCTDECCCOMMON) )THEN D,L1829]«03 
DECOCTCD»sMY,COMMON)3 
IF MY=O THEN MYSTACKADRewy ELSE 


BEGIN % CONVERT FIRST 5 DyGyTS OF COM AS IF THEY WERE OCTAL DIG]TS 


WRITECTL*JsF aMY 2 
READCTE¥]s/»MYSTACKADR)3 
END3 
END BUSTCOMMON3 


PROCEDURE READARRAYCWORDSIZE sANAME »BASEQ3 
VALUE WORDS1IZE*BASE?} 
INTEGER WORDS] ZE BASES 
ARRAY AnNAMEL#]3 
BEGIN 
INTEGER J*SEGSeN} 


ARRAY BUFL0O329]3 

Ns®WORDSIZE MOD 303 
SEGSt=CWORDSIZE+29) DIV 303 
SEGS!=SEGS"13 

FOR 1:20 STFP 4 UNTIL SEGS pO 


00028001480 ~ oT 


00017210 T 0003:000732 
3 1S 10 LONGs NEXT SEG 2 
00018000 T 0002:0014:0 ~~ 
00023000 T 0002!0014:0 
START OF SEGMENT 20k KR # ee 5 
5 18 13 LONGs NEXT SEG 2 
00024000 T 0002%0014%0 
00025000 T 0002'004430 
00026000 T 00023004430 
00027000 T 0002700140 
00028000 T 00023001410 
00029000 T 
~ 00030000 T 00025001430 
00031000 T 0002:00;4:0 
00032000 T 0002700;74?0  — 
00033000 T 0002:0014:0 
00034000 T 90023001480 
00035000 T 00022001523 
00036000 T 00023001533 
00037000 T 00023001533 
00040100 T 0002:0018:0 ~— 
00040110 T 00023001830 
00040120 7 0002:0018:0 
START OF SEGMENT *# eee RK 6 
00040130 T 00063000030 
00040140 T 00061000133 
START OF SEGMENT *xxeKERKKR 7 
7 1S 7 LONGs NEXT SEG 6 
00040150 T 0006:!0001:3 
00040160 T 0006#0001:!3 
00040170 T 00062000431 
00040180 T 0006:000481 
00040190 T 00063000631 
00040200 T 0006:000932 
00040210 T 0006;000932 
00040220 T 000620011%3 7 
00040230 T 0006%001133 
00040240 T 0006:0017%2 
00040250 T 00064001830 
00040260 T 0006!002034 
00040270 T 0006:0021%2 
00040280 T 0006:0029t2 
00040290 T 00063003733 
00040300 T 00063003733 
6 15 42 LONGs NEXT SEG” 2 
00041000 T 0002:0018:0 
00042000 T 00022001830 
00043000 T 000291%00;18!0 
00044000 T 0002300180 
00045000 T 00021001820 
00046000 T 0002:001830 
START OF SEGMENT xe RK EHH 8 
00047000 T 0008%0000:0 
00048000 T 0008:000133 ~ 
00049000 T 0008:0003%2 
00050000 T 0008:000431 
00051000 T 0008:000630— 


C) 


} 


oa 


CO Or © 


ay 


Sone 


iW © 6. 


CO 


Ce. Oe Tk A a) ) 


Or 3 


BEGIN 
READCDLSKs30eBUF(*])3 
MOVECBUFeANAME(CBASE+30x[]+1F I #SFGS OR N=O THEN 30 ELSE ND$ 
END$ 
IF PRT32 THEN BEGIN WRITECPEPAGEI)# WRITECPLOBLJ»<"BASE=" 
15e" SIZEH"e15>sBASE*WORDSIZE)$ FOR I[#BASE STEP 4 UNTIL 


BASF+WORDSIZE #1 DO BEGIN MOVECANAMEL I JsBUFLOJ*1)3 
WRITECPe1*+BUFEL*I) END END3 
FND OF READARRAY? 


BUSTCOMMON? 
COMMENTSTO GET OPTIONSe USEC MIX)IN25" AND/OR COMMON CONTROL CARDS 
IF COMMON THEN NAMESIZESSNAMSSIZEtSINAMESIZEt=INAMSSIZE%=4 ELSE 
BEGIN 
READARRAY(30eSEGZEROL*]29)3 
CLOSECD1SK)3 
LEVEL « SEGZEROLO],(£4236)3 %101" 
SUBLEVEL?="00"3 % 2 DIGITS 
VERSION:=*n"s 8 ¢ LETTER 2110" 
COMMENT EACH TIME ANALYZER IS CHANGED INCREMENT ALPHABETICALLY? 
MCP S=BOOLEANCSEGZEROL1])#% COMPYLE"TIME OPTIONS 
NAMESIZFS=SEGZEROL2]413% # OF McP PRT CELLSCABOVE @200) 
NAMSSTZrt=SEGZEROC313% # OF WORMS THE MCP IDENTIFIERS OCCUPY 
INAMESI7EteSEGZEROP414132 #€ OF FNTRINSICS 
INAMSSIZFE&sSEGZEROF513% # OF WORDS THE INTRINSIC IDENTIFIERS OCCUPY 
END SEGZERQSTUFF3 a 
INFOMAX;=4xPRTSMAX+433 
22% 4% 8% %% 2 BB INNER BLOCK BEGINS 3 2 ¥RRLABRYRY FY 
BEGIN 

LABFL EOPROG} 


LABFL RESTART«XX3 
INTEGER IT 
REAL R3 
REAL AUXTYPES$ 
BOOLFAN SGLTOQG} 
BOO|,FAN NODUMPTOG3 
BOO|,EAN NOMOsMULTIeREPEATINGsRELOADS 
ARRAY PRTNAMELOS4]732% 
ARRAY TPNAMELOI2]3 
DEFINE TOMFID=TPNAMELOJ#e 
TDFID=TPNAMECLLI#> 

. FILETYPE=TPNAMEr ola; 
ARRAY PRTSLOSPRTISMAXI3 
ARRaY YNFOLCOSINFOMAX41]3 
ARRAY NAMECPRIBASE?PRIBASE+NAMESIZE "173 
ARRAY NAMSFOENAMSSIZE*] 73 
ARRAY YNAMErOSTNAMESIZE=1 73 
ARRAY INAMSrO$STNAMSSIZE#4 73 
ARRAY XNAMECACTUALPRIBASE?201]3 — 
ARRAY XNAMS(0?1873 
DEFINE XSNAMELXSNAME1IJ=XNAMELXSNAME1],£8110]#3 
INTFGER MIXMAXS3%MIXMAX OBTAYNED IN "“GETPRTENTRIES" 
REAL PRTOS’ BOOLEAN PRTOK3 % PRTO CONTAINS PRT(C¥s*] ENTRY, %103* 
REAL VJOBNUMsVBED3 
DEFINE STAXMAX=8043% 


00052000 
00053000 
00054000 
00055000 
00056000 
00057000 
9 1S 7 LONG» 
00058000 T 
00059000 T 
00060000 T 
B 1S 50 LONG, 
00061000 
00063000 
00064000 
00065000 
00066000 
00067000 
00068000 
00068100 
00068200 
(00068300 
00069000 
00070000 
00071000 
00072000 
00073000 
00074000 
00078000 
00079000 
00080000 
00080400 
START OF SEGMENT 
00080500 
00081000 
00082000 
00082050 
00082100 
00082110 
00082150 
00082200 
00082250 
00082300 
00082310 
00082330 
00083000 - 
00084000 
00085000 
00086000 
00087000 
00088000 
00089000° 
00090000 
00091000 
00092000 
00092100 
00093000 
00094000 


aAAaaAa- 


AAQMA HAHAH AHH HH HAHAH HHH AHHH ATR A AAA ARTA ATA AU DH 


00083000782 
0008:0007%2 


“000800418270 


0008!004783 
00083001983 
00093002680 
NEXT SEG 

0008:0034:0 


0008:0041:2 


00083004680 
NEXT SEG 

00024004840 
00023001983 


00021004953 


00023002281 
0002300232 
00028002484 
00024002684 
0002:0028:0 
0002:0028!4 


0002%0029%3 


0002:002933 
0002%!0030%4 


0002:0032!0 ~ 


000231003332 
00021003484 


8 


é 


00022003583 © 


0002%0035%3 
0002300372 


00022003782 — 


0002:0037%2 


oe ok KK KOK Kk 1 
00102000030 — 


0010#000050 
0010!'0000%0 


00108000010 
00104000070 


00104000030 
00102000234 


00102000532 
00103000532 


00108000733 
0010:001183 
“00102007634 
0040%0020%4 
00103000434 


00103002891 — 


00108003182 
00103003333 


9) 


~~ 0010200000 


~ 0010%000030 


"0010000582 ~ 


~ 00108000527 °-° ~~ 


00108003383 UT 


- 00103003383 


00105003333 


) 


& CO. sooo. © 


7 oe SF. 1 


Gr Oy. GG 


O) 


ARRAY STAXLOESTAXMAX"™173 YNTEGER MAXSTKsBEDSTK3 
COMMENTSTHE DEFINES BELOW MUST CORRESPOND To THOSE IN FILL/PRT} 


DEFINE 


ARRAY MEMORY(0263,095 
DEFINE OCTADE = ¢DSt=3 ReSeTs 3¢1F SB THEN DSisSET ELSE 

DSt=RESET3SKIP SB))#3 

DEFINE TYPMAXeqgQ#s & 


BREAKOUT 
CHECKLINK 
DATACOM 
DCLOG 
DCSPO 
DEBUGGING 
NF X 
DISKLOG 
DUMPP 
INQUYRY 
SAVERESULTS 
SHAREDISK 
STATISTICS 
AUXMEMM 
RJE 
B6500L0aD 
SEPTICTANK 
PacKeTS 
MONITORR 
MAXOPT 


DEFINE ARROW = "elas 


DEFINE 
DEFINE 


B = BOOLEAN#$ 
M@MEMORY#® & 


FFSLCL8ti5l esd 
cFS033315] #03 
CTFFC18833915 #02 
CTC#HL33833815]#9% 


DEF rNE 
DEFINE 


ROW=f33:361)#%>» 


COL=f39s9]#! & 
DEFINEDMIXMAX®9#34MIXMAX NOW OBTAINED FM PRT MOTHER 


SLATE 
NSLATE 
LSLATE 
ESPBIT 
AVAIL 
MSTART 
MEND 
TOGLE 
BED 

PRT 

JAR 
INTRNSC 
SHEET 
JOBNUM 
PRYOR 
NFO 
ISTACK 
PROCTIME 
LOTIME 
CHANNEL 
FINALQUE 


Fu envu ane untaenrannrinknudnv 


ii 


MCP ef 4784] ks 
MCP sl46itl]#e 
MCP eCa53i)#e 
MCPelf44ti] #e 
MCP ef43t1I] #8 
MCPeL42si]#e 
MCPeCL41t1]#,s 
MCP ef40ril#s 
MCP,(3981) #> 
MCP.f3831)#. 
MCP,C37til#. 
MCP.r36ti1)#e 
MCPal35tijés 
MCPef34silte 
MCP,C33til#> 
MCPe( 3281] #0 
MCPeL3ltilée 
MCP,.C3081]#> 
MCP,c29ail#s 


19#3 % UPDATE AS OPTIONS ARE ADDED 


3 


PRTSCOOJ#:s 
PRTSCO1)#» 
PRTS(O2]#> 
PRTSLO3]#e 
PRTS(O4]#» 
PRTSLOSJ]#» 
PRTSCLO6)] #e 
PRTSLO7]#. 
PRTSLOB)#> 
PRTSci2]#>s 
PRTSci3j#e 
PRTSr i4)#s 
PRIS(C15)]#e 
PRTS> 16) #2 
PRTISCy7] #0 
PRTISC18]#8 
PRTSL19) #° 
PRTSL20]#° 
PRTSC21) #8 
PRTS[22]#» 
PRTSL23]#e 


nur ob pannann un npn nn ann 


%103" 
%1038 
2109" 
2103" 
3103" 


00095000 
00096000 
00097000 
00098000 
00099000 
00100000 
00101000 
00102000 
00103000 
00104000 
00105000 
00106000 
00107000 
00108000 
00409000 
001410000 
00119100 
00110200 
00110300 
00110400 
00110500 
0014111000 
001147000 
00412500 
001442600 
00113000 
00113150 
00113160 
00114000 
00115000 
00116000 
00117000 
00117100 
00118000 
00119000 
00120000 
00121000 
00122000 


00123000 


00124000 
00125000 
00126000 
00127000 
00128000 


/ 00129000 


00430000 
00431000 
00432000 
00433000 
00134000 
00135000 
00136000 
00137000 
00138000 
00139000 
00140000 
00141000 


ADA AA NAN AHA HAA AAA A HH A AHN NV HA FA HAAR AA AA 


00103003383 
0010003733 
0010003733 
0010#0037%3 
00103003733 
00104003783 
00104003733 
0010003733 


001030037:3 — 


00103003733 
0010003733 
0010:0037:3- 
00102003733 
0010:0037:3 


001030037:3 


0010003733 
0010003733 
00103003783. 
0010003733 
00103003733 


00108003783 
00103003733 


001408003783 


00103004024 ° ~~ 


00108004084 
00103004084 
001080040tL - 
00103004084 
001040040314 
00102004081 
00103004084 
00103004031 


001080040817 


0010%0040:1 
0010:0040%1 
00108004037 
0010:0040?1 
0010!004021 


0010004031 
00108004031 


00100040?) © 


00102004084 
00103004031 
0010:0040%7 
00103004034 
0010!004034 


00108004084 > 


001080040%4 
0010?0040%1 


“0010!'004031 


00102004084 
oo010#004081 
0010%004031 
0010:0040%1 
0010004031 


“00108004081 


00108004081 


a) 


CY 


OO 0 


Q 


O 


O 


LOCATQUE 
IOQUEAVAIL 
TOQUE 

UNIT 

TINU 
WAITQUE 
NEXTWAIT 
FIRSTWAIT 
LABELTABLE 
MULTYTABLE 
ROCTABLF 
OPTION 


MESSAGEHOLDER 


PRNTABLE 
INITIALIZE 
P4iMIX 

POMIX 
NOTHINGTODO 


STACKOVERFLOW 


RETURN 


DIRECTORYRUILDER 


pc@PTstack 
SAVERESULT 
AUXDATA 
AUXCODE 
EUTO 

PEOIO 
AVTABLE 
REPLY 
TRANSACTION 
NALoe 


DBARRAY 
ATTACHED 
STATION 
DCQARA 
USERSTA 
TUSTABYMIX 
QTIMeES 
FUQ 
CIOROW 
ARGH 
YECH 


DIRECTORYFREE 


SYSNO 


STATLONMESSAGEHOLD 


LOOK 

PINGO 

NC19@ 

TLL 

RJEWAITQ 
NOPROCESSTOG 
MrXMaSKk 
INFOMASK1 
INFOMASK2 


punandinntanennannnnnana 
i i re i ek | | et Ts eT 


nw un unwa7 


PRTS(C24]#» 
PRES(25)] 4s 
PRTS(26]#»s 
PRTS[CO7J#s» 
PRISE 281] #8 
PRTS(C29]#» 
PRTS(30]#4> 
PRISE 31] #e 
PRTS(C32]#e 
PRTS(33]#» 
PRTS(34]#>» 
PRTS(35]#, 
PRTS(36)#a 
PRTIS(37)#> 
PRTS(380]#> 
PRTS(39]#s 
PRTS(40]#» 
PRTISC41] #» 
PRTSC42]#. 
PRTSC43]#8 
PRTISL44]#» 
PRTSC45)]#. 
PRTSr 46] #,. 
PRTISC47]#e 
PRTSr48J#o 
PRTSca9]#e 
PRTS¢50)#e 
PRTSC5ilé#s 
PRTSf52)#,. 
PRTS[(53]#.e 
PRTS(54) 4» 
PRTSc55]#, 
PRTS,56)#, 
PRTSr57]#, 
PRT$,58]4#, 
PRTS¢59)#, 
PRTSt 60) 4, 
PRTSp64)#s 
PRTSp62 ]#, 
PRTSr63)] #2 
PRTSr64]#e 
PRTSc65]#, 
PRTS(66]#>» 
PRTSc67J]#e 
PRTSp68]#, 
PRTSC69]#, 
PRTSc70]#>» 
R 
PRTSr741#, 
PRTSC72]#s 
PRTIS(L73]#. 
PRTSC74]#, 
PRTIS(75]#e 
PRTS(76] 4, 
PRTS{7/1#,» 
PRTSr78]#, 
PRTSr79]#, 
PRTS;80]#, 


00142000 
00143000 
00144000 
00145000 
00146000 
00147000 


00148000 


00149000 
00150000 
00151000 
00152000 
00153000 
00154000 
00155000 
00156000 
00157000 
00158000 
00159000 


00160000. 


00161000 
00162000 
00163000 
00164100 
00164110 
00164120 
00164130 
00164140 
00164150 
00164160 
00164170 
00164180 
00164190 
00164200 
00164240 
00164220 
00164230 


00164240" 


00164250 
00164260 
00164270 
00164275 
00164280 
00164285 
00164290 
00164295 
00164300 
00464305 
00164310 
001643114 
00164315 
00164320 
00164325 
00164330 
00164335 
00164340 
00164345 
00164350 
00464355 


AAA AAA AAA AA SAA AAA AAA A 


00103004031 
00108004034 
0010!004031 


001080040%4 7 


0010%0040%14 
0010004031 


00102004031 ~ 


00108004084 
00108004034 
00103004084 
00102004034 
00401004084 
0010004084 
00103004024 
0010004094 
00102004084 
00102004034 
00102004034 
0010!0040:4 
0010?0040!1 
00108004014 
00103004034 
00108004034 
00103004024 


00103004034 


00103004034 


00104004031 | 


OOL0t 004081 
00108004021 
0010:0040%4 


00108004031 ~~” 


00103004031 
00104004034 


0010%0040%4 ~~ 


0010%0040%4 
0010%0040%4 


OO10#0040%1 > 


001030040%4 
00108004084 
0010%0040314 
00103004033 
001080040:4 
00103004034 © 
00108004084 
00108004034 


0010200403 3 © 


0010#0040%4 
0010:0040%4 


001080040%4 


00108004034 
00103004031 


0010:0040%4 — 


00108004081 
00108004081 


00108004084, - 7 TT 


001408004034 
00102004034 
00108004034 


ms 


Ct) 


(> 


eo: 


@ 


CCMASKY 
CCMASK2 
CORE 
DISKOUNT 
EUW 
PUNTER 
LQUE 
LQAVAIL 
TAR 


1OQUESLOTS 


DUMMy 


PROCEDURE FILLINFO; 
FILL INFOC*] WITH & 


"SLATE te 0e0026e 
WNSLATE "20200220 
"LSLATE “s020922¢ 
"ESPBIT "2020010. 
"AVAIL 7.000523 
"MSTART 50s0023¢ 
"MEND 0p 0e23¢ 
"TOGLE 120,09 92% 
"BED %,020296> 
0202090, 

Or090e0, 

0207090, 

"PRT "s0909?6a 
"JAR %s090926e 
"INTRNS¢ "20209268 
"SHEET "s020926e 
"JOBNUM "s020922e 
"PRYOR ,020926e 
"NEO %e0n0926>— 
"ISTACK 20209265 


"PROCTIME’» 0209268 


“LOTIME 


*,020926» 


"CHANNEL ‘sOe00265 
"FINALQUE"»0009268 
"LOCATQUE"#020%262 
"IQOQUEAVA™S "IL 
"TOQUE "0909268 
VUNTT 50909269 
"TINU 1020226» 
"WATTQUE 0.0926, 
"NEXTWA1T's020222, 
MEY RSTWAT™)»"T 
"LABELTAB Ms "LE 
WMULTITABYs "LE 
"ROCTABLE%s 09209260 
"OPTION "p020#220 
"MESSAGFH"» "OLDER 
"PRNTABLE"+#090¢ 262 
"INITIALI“s"ZE 
"PAUMIX 2020922 e 
"POMIX "50209220 
"NOTHINGT's "000 
"STACKOVE™s "REFLOW 


"200225 


09225 
50526, 
209265 
,09225 


20710» 


20032» 
909325 


Uni nnnrnaunniu 


PRTSr84]#:s 
PRIS(82]#e 
PRIS(CA3I] #8 
PRTIS(L84]#:s 
PRTS(85]#s 
PRTISC86I]4» 
PRTISL87I]#s 
PRTS(C86]#:s 
PRTS(C89]#s 
PRTS(9O0]#> 
DUMMy#3% 


ae 


Be BE BE BE VE BL BE BE DE BC BC RC HR BE BL BE dL BE BE BW BE BE DE BE BE BL BE BE |S |e BS BE BC BE BE de BE BC BC BL aK JE 


00164360 
00144365 
00164370 
00164380 
00164390 
00164400 
00164410 
00164420 


00164430 


00164440 
00164999 
00165000 
00166000 
00167000 


START OF SEGMENT 


00168000 
00169000 
00170000 
00171000 
00172000 
00173000 
00174000 
00475000 
00476000 
00177000 
00178000 
00179000 
00180000 
00181000 
00182000 
00183000 
00184000 
00185000 
00186000 
00187000 
00188000 
00189000 
00190000 
00191000 
00192000 
00193000 
00194000 
00195000 
00196000 
00197000 
00198000 
00199000 
00200000 
00201000 
00202000 
00203000 
00204000 
00205000 
00206000 
00207000 
00208000 
00209000 


OR Ke 


AANA NAH DR ARR AH ATMA AA AT A HAA AHA TIAA RATA AHH HA SH 


00108004084 
00108004034 
0010004031 
001000403] 
OOL10t004084 
00108004031 
00108004081 
0010:00403:1 
00108004091 
00108004034 
00102004081 


001080040%4 >> ~ 


00103004034 
00103004133 


00103004231 
00103004231 


00108004231 - 


001080042314 
00108004231 


001030042314 
0010%#0042%4 


00102004284 


00103004284 
00103004231 


00108004244 


00108004234 
00103004221 


00103004234 


00108004234 
001080042!) 


00103004231 
00102004284 


0010%0042%1 ~~ 


00108004231 
001070042%1 


00108004231 
00108004221 


i 


(0010800428, 


00102004254 


00108004281 “on - 


001031004231 
00108004284 


00102004201 


00102004231 
00108004234 
0010#0042t4 
00102004221 
0010%004231 
0010004231 
00102004231 
00103004231 
00103004231 
00108004231 
00108004234 
00108004234 


cN 


oo 


> 


O° cS 


oO “Oo 


CG 


Pend 


O O 


a oO 


@ 16. 2G. sO (6. 46: 


wer 


CP 3Or 26 


"RETURN 20909320 


"DIRECTOR™s"YBUILDER"s0010- 


“DCQPTSTANa "CK 

"SAVERESU"s "LT 

"AUXDATA s0209 260 
WAUXCODE "20209265 
"Furo 50209268 
"PEUTO 0900268 
"AVTABLE 'ts0r0026% 
WREPLY ,020026e 
"TRANSACT™,"10N 

"DALOC 1.009968 
"“MEMASK "00202260 
"CTABLE “20200206. 
WES ,0002268 
"DRARRAY s0s0226e 
"ATTACHED? 020026e 
"STATION "0090226, 
"NCOARA 5020226 


PUSERST A e000 269. 


"TUSTABYM", "1X 
"QTIMES %,000s262 
WEUQ 1.020206» 


"CIDROW %r000s26e 
"ARGH 20209 26e 
"YECH 10209228 
"DIRECTOR" s"YFREE 
"SYSNO 50209228 


502225 
eQr26e 


,0s26.5 


",0,26, 


"20922% 


"STATIONM™s "ESSAGEHO"s "LDER 


WLOOK 0209225 
"PINGO %,0209228 
"DC19Q ,000222% 
WILL 202709226 
WRIEWATTOMs Or 00220 
“NOPROCES","STOG 
"MIXMASK “eOeO2a2e 
" INFOMASK*» 4 
WINFOMASK, "2 
"CCMASKy “s000*22e 
"COMASKD "s0209220 
"CORE ,0290922n 
"DISKOUNT'» 0200230 
"EUW 20209220 
"PUNTER 920209276, 
"LQUE 0000260 
"LQAVAIL "e#O020222» 
"TAR tt re0e026e 
*TOQUESLOMs "TS 

03% 


COMME N Tok ok RO OG IO IG IIR TOR GGG I IOI I I IOk a aC ak ie aca 
FOR FACH IDENTIFIER DEFINED IN THE ARRAY "PRTS", 
A CORRESPONDING 4 WORD ENTRy [N "YNFOH, 
ARE RESERVED FoR THE IDENTIFIER TEXT, 
THE CLASS OF THE IDENTIFIER AS DETERMINED BY THE ESPOL COMPILER. 
THIS CLASS APPEARS IN THE FIRST FOUR COLUMNS OF THE STUFF CarRD 


FOR THIS IDENTIFIERe IF THE CLASS IS NOT KNOWNe 


,0222» 


00228 
20222 


"209220 


a 


x 
- 
Ba 


ae 
DEQ VQ ae JQ VL BA aE BE BA BE BE BE aQ BE A BE AC DE dE aL DE BS BL BE BQ dN | BS BR BE BM BL Be 9A |S aR BC BE Be Be a BE Be a 
6] 


THERE MUST ®F 
THE FIRST THREE WORDS 
THE FOURTH MUST CONTAIN 


A ZERO MAY BE 


00210000 
00211000 


00212000 


00212100 
00212200 


00212300 


00212400 
00212450 
00242500 
00212550 
00212600 
00212625 
00212650 
00212675 
00212700 
002142725 
00212750 
00212775 
00212800 
00212825 


00212850 © 


00242875 
00242880 
00212885 
00212890 
00212895 
00212900 
00212905 
00212910 


00212915" 


00212920 
00212925 
00212930 
00212935 
00212940 
00212945 
00212950 
00212955 
00212960 
00212965 
00212970 
00212980 
00212990 
00212992 
00212994 
00212996 
00212998 
00212999 
00213000 


365 LONG 
~ 00214000 


00215000 
00916000 
00217000 
00218000 
00219000 
00220000 


NEXT SEG 


AA AHA HAHAHAHAHA HAH St HH HAA A HA HA HAAR AA AH tH 


0010004211 
00108004281 
001070042!}— 
00103004231 
00102004231 
001030042t1 
00103004231 
00108004254 
001408004231 
00108004234 
00403004284 
0070800421 — 
00104004234 
001030042314 
00101004234 
00103004224 
00102004284 
00103004224 — 
0010:0042%4 
0010%80042%4 


0010;00423,°0 7 


001408004234 
0010%'0042!4 


QOLOtO042t 1 


00104004231 
0010%:0042t1 
00108004271 
0010:004231 
00103004231 


001080042%4 — 


00103004234 
001080042%1 
0014080042: 
00108004234 
001030042%4 


00108004234 


00108004231 
00108004231 


00108004231 7 


00108004231 
00103004231 
0010:0042:1 
00107004231 
0010004234 


001080042t4 0 


00108004234 
001080042%4 
001408004231 
0010%:0042%1 
10 
0010:0043%2 
0010004382 
00103004332 


~ 001030043%2 


0010#0043%2 
0010#0043%2 


00108004382 


CT" 


USEn IN THE "INFO" ENTRY FOR IT. HOWEVER USING A CLASS OF ZERO WILL 00221000 
INCREASE THE TIME NEEDED TO LOCATE THE PRT ADDRESS OF AN 00222000 
IDENTTIFIERe NOTE THAT ALTHOUGH ARRAY “"PRTS"® MAY CONTAIN GAPS ~— 00223000 - 
"INFO" MUST CONTAIN A DUMMY ENTRY COMPRISED OF ALL ZEROESCSEE*FOR 00224000 
INSTANCE» PRTSE9Js PRTSE10J» AND PRTSC11)), 00225000 
FOR CONVENIENCEe THE CLASS NUMBERS THAT THE ESPOL COMPILER MAY 00226000 
ASS1GN AND WHICH MAY APPEAR ON A STUFF CARD ARE LISTED BELOW? 00227000 
PROCID =1lO#es 00228000 
STRPROCID siot, 00229000 
BOOSTRPROCID 2138s 00230000 
REALSTRPROCID slqhe 00231000 
INTSTRPROCID siS5#e 00232000 
BOOPROCID ni7#s ~ 00233000 
REALPROCID =18#» 00234000 
INTPROCID =ig#s - 00235000 
BOOID =2q#e 00236000 
REALIA nape 00237000 
INTID m23%>» 00238000 
RBOOARRAYID s25Bs 00239000 
REALARRAYID =26#,» 00240000 
INTARRAYID a27#s : 00241000 
NAMETO =30%e 00242000 
INTNAMEID =34%s 00243000 
LABELID =30k» 00244000 
SEEN Ge WS EGER EATEN oe + LUA O Oe be a ew OEE eee 00245000 
PROCEDURE SETUPXNAMEANDXNAMS3 00246000 
BEGIN | 00247000 
STREAM PROCEDURE FILLXNAMSCKXNAMS)3 00248000 
START Or SEGMENT 

BEGYN = 00249000 
NDreaXNAMS3 00250000 

OSt= BLITYNTY rE 00251000 

NSt= AL ITNT? "5 00252000 

DSt= BLIT'"NT3 a 00253000 

DSts BLITYNTY "3 00254000 

OSt= BLITNTS "3 ; : 00255000 

NSte BLIT'NT6 ts 00256000 

DS: BLIT"NT7 "3 00257000 

DSt=® BLIT"DATE "5 00258000 

oSts BLIT"CLOCK 00259000 

DSt= BLIT™XCLOCK "3 00260000 

nSt= BLIT"READY "3 ' 00261000 

DSt= BLY Ttewemawwetts 00262000 

DSt= BLIT"KLUMP "3 00263000 

DSt= 6LIT*FIRSTDECK "3 00764000 

DSts= BLIT"LASTDECK"3 00265000 

DSss BLIT"DIRDSK "3 00266000 

DSt= BLIT"MEMORY "3 : : 00267000 

DSis BLIT"RRRMECH "3 00268000 

END OF FILLXNAMSS 00269000 
ARRaY TLACTUALPRTBASE$213]3 : ~" 00270000 
INTEGER IedJ3 00271000 
FILL Te*) WrTH % XNAMES 00272000 
; 1239149005 00273000 
START OF SEGMENT 

12991901» 00274000 
41994202e 00275000 


T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
* 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 


00128002680 °°°° 7 
HO OR RR Ok 13 
T 0012002783 
T 00124002783” 


0010;0043%2 
0010:0043%2 


00108004382" 


001020043?2 
0010:004332 


0010%0043%2-° ~ 


0010:0043%2 
001080043%2 


"00105004332 


001080043%2 
00108004382 
0010!0043%2 
00105004342 
00104004382 


00103004332 ~~ 


00108004382 
00103004332 
00104004382 
00108004382 
001080043%2 


001080043%2 
00108004382 
00108004332 
0010!0043%2 
0010004382 


00108004382 ~~ 


0010004312 


oO OR ok 12° 


00428000030 ~ 
00128000030 
0012000080 


*~ 00123000183 7 7 


0012000281 
00123000430 
001210005%2 
00121000631 
00121000733 


00128000982 "°° 


00124001020 
00124004123 


00128001281 


00124001430 
0012%0015%2 


"00128001681 © 


0012%004834 
00124002070 
001280021%2 
00128002234 


00128002383 
00128002420 — °° 7 


00123002533 
0012#0025:3 


"gOVOFOORSI a > es 


C) 


C) 


{fo 


Ce. 


S 


12791903: 00276000 
12591904e 00277000 
12409129058 00278000 
12621206» 00279000 
128919078 00280000 
112919085 00281000 
11301209, 00282000 
114219100 00283000 
115ele1.s 00284000 
11621912» 00785000 
117s2043e 00286000 
118919158 00287000 
1220191628 00288000 
129919178 00289000 
1219191832 00290000. 


13°15 54 LONG» 


FILLXNAMSCXNAMS D3 00291000 
JI=ACTUALPRTBASE™15 00292000 
FOR TssACTUALPRTBASE STEP 3 UNTIL 211 DO 00293000 
XNAMECJPado1)$208T C7) 78338801 kT 4116188338 1578T 4216338339153 00294000 
END SETTING UP XNAMEANDXNAMS3 00295000 


12 1S 45 LONGs 


REAL LINKTYPES ; 00295100 
ARRAY AREATYPECOSTYPMAX4#1)]5 ATPLOPCTYPMAX41)x273 %103= 00295110 
BOOLEAN ARRAYSFILLED$ ¥103¢ 00295115 
PROCEDURE FILLAREATYPES 00295120 
COMMENT&**AREATYPELLEINKTYPE J» WHERE LyNKTyPe 1S THE TYPE OF MEMORY 00295430 
LINK TO BE PRINTED, CONTAINS A CODE WHICH DETERMINES THE FORMAT FOR 00295440 
PRINTING THE AREA & {=0CTALs D=ALPHA/OCTALs 3=ALPHA ONLY, 00295450 
DUMPMEMORYANDNOTESTACKS DETERMINES LINKTYPE FROM £346] OF A PRIMARY 00295160 
LINKe PRINTCORE THEN OBTAINS AREATYPECLINKTYPE] AND PRINTS THE AREA 00295170 
IN THE APPROPRIATE FORMATs E,EMENTS 0 THRU TYPMAX CORRESPOND To 00295180 
POSSIBLE LINK TYPES. ELEMENT TYPMAX+1 IS USED TO CONTAIN THE DEFAULT -00295190 
FORMAT CODE USED IN PRINTING AN AREA WHICH DOES NOT BEGIN WITH A LINK 00295200 
OR CONTAINS A CLOBBERED LINKe THE CONTENTS OF AREATYPE ARE NOT 00295210 
USED IF DUMPOCTALONLY* DUMPALPHOCTAL OR DUMPALPHAONLY ARE SET OR 00295220 
IF AN AVAILABLE AREA IS BEING PRINTED WHOSE CORRESPONDING FORMAT 00295230 
CODF IS NOT NEGATIVEs FOR EXaAMPLE* A NEGATIVE CODE SUCH AS *2 CAUSES 00295240 
ROTH IN@USF AND AVATLABLE AREAS TO BE FORMATTED AS ALPHA/OCTALe A 00295250 
COpE OF +2 WOULD CAUSE ONLY IN@USE AREAS TO BE PRINTED IN ALPHA/OCTAL= 00295260 
AVATLABLE AREAS, IF PRINTEDs WOULD BE PRINTED IN OCTAL ONLY, *¥¥x3 00295270 
IF NOT ARRAYSFILLED THEN BEGIN 41038 00295275 
FILL AREATYPEL*] WITH 3 1"OCTAL® 2=ALPHA/OCTAL» 35 ALPHA 00295980 
ae% UNKNOWNCO) 00795290 

START OF SEGMENT 
19% CODECL) 00295300 
29% DaTal2) 00295310 
29% TOBUFC3) 00295320 
1°% ALGFIBC4) 00295330 
2% INQRUFC(S) 00295340 
29% CORFIRC6) 00295350 
1% tNTSeqc¢7) 00295360 
29% HEANER(S) %109= 00995370 
49% 09) ' 00295380 
99% LBL EANC10) %109= 002995390 
1°% (11) 00295400 
99% STACKC1I2) 00295410° 


AA VA VAM HHO HHA Ht tO OTH 


SAAA HH HH HS 


T 
T 
T 
T 
T 


errr. ttre 


001232002733 
00128002783 


O012t0027:3 0 7 


00123002733 
004123002733 


~ 001248002783 ~ 


00123002733 
00122002733 
00123002733 
00123002733 
0012!002733 


00128002733 ~ 


00128002733 
00123002783 


00128002773 
NEXT SEG 12 


0012002733 


00128002831 — 


00128002933 
00120034%2 


00128004132 
NEXT SEG 


0010280043%2 


0010:0043'2 


0010#005123 
0010!005133 
00108005133 
0010!005133 
00408005433 
00108005183 
0010!00542%3 
0010%0051%3 


~001030051:3 — 


00103005133 
00103005123 
0010:0051¢3 
00102005123 
0010005133 


0010!0051:3 
0040'005133 
0014080051443 


001408005133 — 


00108005382 
001080053383 


00103005431 
00108005434 


"00108005434 0 7 


00108005484 
0010:0054%4 


00108005481 


00108005431 
0010#0054%4 


00108005444 
0010%0054%4 


00102005481” 


10. 


oy 


00140800548; °>° 7 ~ 


- 


{y 


(135 

(145 

(154 

(165 

SPOUT MSGC(17) 
UVROWCE18) 
JARROWC(19) 
CIDROW( 20) 
(21) 

(22) 

(23) 

C24y 
DALOCROW(C25) 
SHEFT(C26) 
C275 
KeYyNBUFFERC 28) 
FSRowe29) 
(30) 
AVTABLEC31) 
TRACE TABLE¢ 32) 
SEGDICT¢33) 
STACK@PRT(349 
MCPRTABLESC35) 
IRSTACK(36) 
FPB(37) 
Cc(38) 
LABFLE39) 
MDUMP¢40) 
ESPnIskce41) 
LOG¢42) 

(43) 

C4ay 

(455 

C465 

C474 

C4By 


MUNKNOWNe tt, ft " 
"CONEs Wan "4 
"WOATAs eeu wt, 
"I/q BUFFYeMER. "5 
PALGOL FI"s"Be "e 
"INQUIRY "e"BUFFER® "y 
"COROL Fite"Be W, 
"REENTRAN'?#"T INTRNS"» 
"DISK HEA"*®"DER} "y 
"MAINTENA™ SO ONCESe ", 
"LBL e FON, Me" ENTRY« ", 
"SEGMENT “s"ZERO® "5 
"STACKe 1, ", 
"INTRINSI Me Ce ", 
"SCRATCH "a"DIRECTRY" >» 
"OPSETe tet ", 
"DIRECTOR "ett¥ ToPe , 


ae DE BL BR Be BE BE BE DL |G BE BE BL | ae aC 


FILL ATPC*] WITH % NAMES OF MeMORY AREA TyYPeS, 
TYPE O 


TYPE 
TYPE 
TYPE 
TYPE 
TYPE 
TYPE 
TYPE 
TYPE 
TYPE 
TYPE 
TYPE 
TYPE 
TYPE 
TYPE 
TYPE 
TYPE 


COON OUE we 


%109 
109" 
109" 


%1098 
%2109% 
Z2109" 
%109" 
%109" 
¥109" 
x¥1{ 09" 
%109" 
%409= 
%109= 
21098 
2109" 
%109" 
2109" 
2109" 
41098 
2109 
¥109" 
%109" 
21098 
£109" 
%109° 
2109" 
2109" 
2109" 
2109" 
%109= 


%103= 


Z103= 
START OF SFGMENT 


4103 
4103 
2103" 
4103 
7103" 
2103* 
2103" 
2103" 
%103° 
41038 
%103= 
%103 
21036 
4103" 
3103" 
2103 


00295420 T 0010280054841 
00295430 T 0010:0054%4 
00295440 T 0010300548177 
00295450 T 00108005431 
00295460 P 00103005431 
00295470 P 00108005481 
00295480 P 0010:0054t4 
00295490 T 0010%0054t] 
00295500 T 0010%0054%1 ~ 
00295510 T 00103005431 
00795511 ¢ 00103005431 
00295512 Cc (00108005434 
00295513 c 00102005434 
00295514 c 001030054814 
00295515 c¢ 0010%0054%14 
00295516 ¢ 001048005484 
00295517 c 00103005434 
00295518 c 0010:0054%4 
00295519 c 0040800543; 
00295520 P 0010005484 
00295521 C 001020054247 
00295522 C 0010005434 
00295523 C 00108005431 
00295524 C 00101005431 ~~ 
00295525 c 00108005481 
00295530 c 001010054381 
00295535 ¢ 
00295540 ¢ 00102005431 
00295545 c 00108005434 
00295550 c¢ 0010005424 
00295555 ¢ 00103005434 
00295560 c 0010:005431 
00295565 c 00101005424 
00295570 Cc 0010:0054:1 
00295575 c¢ 00108005431 
00295580 ¢ 00108005434" ~ 
00295585 ¢ 00108005431 
50 LONGe NEXT SEG 
00295700 ¢ 0010300543) 
00295705 c 00108005532 
2k OOO OR ak 
00295710 c 00108005634 
00295715 Cc 0010:005611 
00295720 C 0010!0056!1 
00295725 C 00101005631 
00295730 C 0010:005631 
00295735 Cc 0010:005631 
00295740 ¢ 0010:0056r1 
00295745 c 0010005631 
00295750 c 00103005631 
00295755 c 0010:0056:17~" 
00295760 Cc 0010:0056!1 
00295765 ¢ 0010:0056%4 
00295770 Cc” 0010!0056%1 ~~ 
00295775 C 00104005631 
00295780 C 00103005681 
00295785 c 0010:0056!17 


00103005484 °° 


10 


15 


f 1 


ft 


C) 


, ou C) 


) 


Ce Oe Oe 


O 


O) 


O 


"SPOUT ME"®"SSAGE* "se & TYPE 17 %103" 00295790 c 00103005631 ~ 
"LARELS« Me" _  "y & TYPE 18 %103= 00295795 c 0010:005611 
"JAR ROW#M eM Ne ® TYPE 19 2103 00295800 Cc 0010:0056%1 
porn ROWe te ve ® TYPE 20 2103" 00295805°C 0010005681 07 
"INQUTRY "»"INPUT© "» & TYPE 21 $103 00295810 c 00101005681 
"INTRINSI"e#"C ARRAY*"s % TYPE 22 %103« 00295815 c 00101005634 
he eae te TIRE 23 %103" 00295820 c 00105005611 
"DC QUEUE: ", £ TYPE 24 %103" 00295825 c 00103005681 
"DALOC RO" "We ", % TYPE 25 %103% 00295830 C 00101005631 | 7 
"SHEET EN" e"TRY« ", 2 TYPE 26 %103* 00295835 C 0010005631 
"STATION "s"ROWe "s & TYPE 27 %103" 00295840 c¢ 00103005641 
"KEYIN BUTS"FFERe  "» & TYPE 28 %103" 00295845 ¢ 00103005631 
"PS ROWe tte” "s & TYPE 29 %103° 00295850 C 00103005631 ae 
"DC 19 QU"s"EUF} ", & TYPE 30 %103" 00295855 c 00103005631 
"AVAIL DI"e"SK TBLe "» % TYPE 34 %103" 00295860 c 0010:005634 
"TRaCe TA™s"BLFre ", % TYPE 32 %103" 00295865 c 00103005631 — 
"SEGMENT "s"DICT,« "e & TYPE 33 %103" 00295870 c¢ 00103005631 
"STACK™PR' "Te ", Z TYPE 34 %1038 00295875 c 00103005634 
"MCP TABL's"ES¢ ", % TYPE 35 ¥103" 00295880 C 0010:0056!1 °° 
"r R STAC A Ke ", % TYPE 36 %103" 00295885 c 0010:0056%4 
"FILE PAR"s"AM BLOCK"s % TYPE 37 2103" 00295890 C 0010005641 
"CONTROL "s"CARD® "s & TYPE 38 %103" 00295895°C¢ 00104005634 i“ 
"LAREL RE“»"CORD]  "s & TYPE 39 103" 00295900 C 0010:0056%4 
"MOUMP BU"®"FFER® "es & TYPE 40 1038 00295905 c 0010:0056%1 
"ESP NISK"st« "e 2 TYPE 41 %103° 00295910 ¢ 0010:005634 7 
"LOG INFOMs"%e ", 2 TYPE 42 %103" 00295915 c 00103005614 
"TYPE 43¢"%)" ", & TYPE 43 %103" 00295920 ¢ 0010:005634 
"TYPE GMatty™ ", 2 TYPE 44 %103" 00295925 c¢ 00108005681 ~ ’ 
"TYPE 45e"y ", 23 TYPE 45 %¥103 00295930 ¢ 0010%005631 
"TYPE 46a)" ", % TYPE 46 %103" 00295935 c 00103005684 
"TYPE Ave" ae "» & TYPE 47 %103= 00295940 cc’ 0010800568 4°> °° 
"TYPE ABelts” ", % TYPE 48 %1038 00295945 c 00103005614 
"QOACGECO"s»"GQQREEEA"s % END OF TABLE, %103" 00295985 c 00108005634 
15 1S 100 LONGs NEXT SEG 10° °  —” 
ARRAYSFTLLED ¢* TRUES %1039 00295990 c 0010005614 
ENDS %103= 00295995 c 00103005732 
DEFINE NEXTPAGFEWRITECPEPaGrI)#; "00296000 T 0010300573 ~ ~~ 


00297000 T 00108005733 
START OF SEGMENT ee # RR K HK 16 
00298000 T 0016'005733 
12 LONGs NEXT SEG 10 
00299000 P 0010%0057?3 | 
START OF SEGMENT ob tao ke RR Wy ceed 
17 +18 12 LONGs NEXT SEG 10 


FORMAT STARSC20C "HERE KK) yy 
STARZE*C HN) )E oe 
16 1S 


FORMAT MCPHDRC"DCMCP XVI a eAde™,"2Ade” COMPILE TIME OPTIONS#)3 4101° 


SWITCH FORMAT MCPOPT#=( "BREAKOUT") 00300000 T 00101005733 
START OF SEGMENT xxxxkke KR § 18 ai aI 
r€ "CHECKLINK") 00301000 T 0018:005733 
a ( "DATACOM") 00302000 T 0018:005713 
Pa "DCLOG") 00303000 T 00183005713 ~ eo 
oC "DCSPO") 00304000 T 00181005733 
a "DEBUGGING") 00305000 T 0018:005733 
oC MDFX®) 00306000 T 004830057:3> “77 
r¢ "DISKLOG") 00307000 T 0018:005733 
»( "DUMP") 00308000 T 0018!005733 
a¢ "TNQUIRY") 00309000 T 0018:005733°0° 
»( "SAVERESULTS") 00310000 T 00188005733 
oC "SHAREDISK") 00311000 T 0018!005733 
»( "STATISTICS") 00312000 T 0018:0057:30°°°~ 7 


C) 


Cy 


O 


-. 


a ( "AUXMEM") 

al "RUe") 

af "B6500L0AD") 
at "SEPTICTANK*") 
( "PACKETS") 

ac "MONTTOR') 


2 
s 


ALPHA ARRAY IDLO!2];2USED TO CONTAIN AN IDENT WHOSE PRT LOC IS SOUGHT 
PROCEDURE TABLELOOKUPCID*®LOC)ZSARRAY IDCOIJS INTEGER LOC} 
BEGIN 

INTEGER 1,N3 


BOOLEAN STREAM PROCEDURE GOTIDENTCAsNsB) VALUE N3 
BEGIN SytsAsDItsBsTALLYs=03 | 
IF nw SC = DC THEN TALLY8=43 
GOTIDENTS=TALLY; 
END GOTIDENT? 
KLASS3=KLASS*143 
FOR I: 129 STEP 4 UNTIL PRTMAX DO 
IF N&*®NqaMECT2,018#30) NEQ O THEN 
IF NeFF=LO0¢ OR LOCSO THEN 
IF KLaSs Le@ O OR KLASS=NAMECTI,0£3:5] THEN 
IF GOTIMFNTCNAMSCEN. CFI] eNS=8xN,FreIDCOJ) THEN 
BEGIN 
LOGtsT3 
TtePRTMAXs23%FORCE FALL THRU 
END} 
IF I Gf@ PRTMAX +2 THEN ELSE LOCt=e 73 
END OF TABLELOOKUP$ 


DEFINE GETIDLOCCGETIDLOCIL»GETIDLOC2.GETIDLOC3»GETIDLOC4) = 
BEGIN 
FrLL [00*) WITH GETIDLOCL+GETIDLOC2rGETIDLOC33 
TABLELOOKUPCIDeGETIDLOC4)3 
ENDESY 
PROCEDURE FIXDEFINES} 


BEGIN CaF N Ts IOI OGIO IO IOI III GIGI IEICE IOI kg Holi sek ack 


THIS PROCEDURE IS RESPoNSIBLE FoR FINDING THE PRT LOCATION oF AN 
IDENTIFIER DEFINED IN *PRTS*" FOR WHICH THERE IS A CORRESPONDING 
ENTRY IN "INFO", IT DoES THIS BY CALLING "TABLELOOKUP™ TO 
PERFORM A LINEAR SEARCH OF "NAMES TO LOCATE AN IDENTIFIER IN 
"NAMS" AND @OMPARE IT WITH THE ONE GIVEN IN "INFO", IF AN 
IDENTIFIER CAN NOT BE LOCATED IN "NAMS",» THE *PRTS* ELEMENT [S 
LEFT UNCHANGED@"OTHERWISEs THE ADDRESS OBTAINED IS STORED 


IN PR TS EGO OGIO IG IO IOI ISCO IG ORE kai 


INTeGFR pebOc; 


INTFGER STREAM PROCEDURE TOLENGTHCADS 
BEGIN LOCAL Lé Sytstoc 43 DItsA3 
3C1F 85CeDC THEN JUMP OUT ELSE BEGIN TALLY#=TALLY413 
ST:sL0C 4 END)$ IDLENGTHSSTALLYS 
END IDLENGHTH?3 
FILLINFOS 
FOR Is#0 STEP 4 UNTIL INFOMAX Do 
IF CLOC2=IDLENGTHCINFOCIJ)9)=0 THEN ELSE BEGIN 
MOVECINFOLIT J» 1Ip£COJe393 KLASS$SINFOLI+3)3 


18 1S 


START OF SEGMENT 


19 IS 


START OF SEGMENT 


00313000 T 00183005733 
00313100 T 00183005733 
00313200 T 0018:0057:3° 7° 
00313300 T 0018:0057:3 
00343400 T 0048:005783 
00313500 T 00483005733 > 
00314000 T 0018!005733 
108 LONGe NEXT SEG 10 
00315000 T 0010:0057:3° °° °° 
00316000 T 0010:006031 
00317000 T 0010:0060%4 
00318000 T 001080060347 
KR ROK Ok 19 
00319000 T 00141930000!0 
00320000 T 00193000030 
00321000 T 00198000031 
00322000 T 00193000133 
00323000 T 0019:0002:0 
00324000 T 00198000382 
00325000 T 0019:0004:0 
00326000 T 001930005:2> 9° 7 
00327000 T 0019%000733 
00328000 T 0019:0010:0 
° 00329000 T 00193001333 
00330000 T 00198001834 
00331000 T 00194001932 
00332000 T 0019:0020%0 
00333000 T 00193002432 
00334000 T 00193009333 
00335000 T 0019%0027:2 ~ 
30 LONGse NEXT SEG 10 
00336000 T 00103006031 
00337000 T 001030060314 
00338000 T 00103006034 
00339000 T 0010:006034 
00340000 T° 00108006084 
00341000 T 00140%006024 
00342000 T 001010060!1 
00343000 T 0010:0060?4 
00344000 T 00108006031 
00345000 T 00104006081 
00346000 T 0010:006034 
00347000 T 0010:0060%14 
00348000 T 0010:00602:1 
00349000 T 0010:0060:1 ~ 
00350000 T 0010:0060:1 
00351000 T 0010:0060:1 
Mok ok OK 3 kK ok ok 20 
00352000 T 0020:0000:0 
00353000 T 0020000080 
00354000 ' T 0020:0000%4 ~- 
00355000 T 0020:000210 
00356000 T 0020:0003!2 
00357000 T 0020%000430" 
00358000 T 0020:0005:3 
00359000 T 0020:0007%2 
T 


00360000 


002010010814 


rN ra 


rc 


rT 


C 


C) 


on 


‘S 


©) 


OC) 


a 


O 


O 


Cre © 


Os 3 


O 


oO 


CPO 


TABLELOOKUPCIDsL0¢C); 

PRTSCI/4]:S1F LOC GTR o THEN LOC ELSE PRTSCI/4] END? 
KLASS#=03 
IF PRT32,04631] THEN FOR yts0 STEP 1 UNTIL PRTSMAX DO 
WRITECPo<"PRTSrepp3e"Je tel 4>otePRISCII)3 


END FIXING DEFINESS 


BOOLEAN STREAM PROCEDURE BITONCWeB)3 
VALUE B3 
BEGIN 
SryisW3SKIP Bg SR} 
IF SB THEN TALLYt=13 
BITONSsTALLY3 
FND OF RITONS 
PROCEDURE NEXTITEM$ 
BEGIN 
WRITECP)? 
WRITECPEDBL Je STARS); 
END? 
PROCEDURE PRINTMCPOPTIONS3 
BEGIN 
WRITE CPLCDBLIJ »MCPHOR* LEVEL» SUBLEVEL)3 
FOR [351300015012 20 3044p Sebo 7 vbr Ge 1 Ballo j4o10n16eti012 Dod 
IF RITONCMCP e471) THEN WRITECPeMCPOPTEII)3 
WRITECPLDBLI)3 
END OF PRINTMCPOPTYONS3 
DEFINE DATE s(119)#, 
cLOcK : a(120)#, 
XCLOCK aC 1212.83 
BOOLEAN ARRAY MODONEL0O:7]43 
INTEGER ARRAY [TDC089]3 
ARRAY RTDCO35]3 


DEFINE TIMEANALYZED = ITOCO]#s 
DATEANALYZED = ITDC1I]4, 
TIMETAKEN = ITDC2]#, 
DATE TAKEN = ITOL3]4, 
TIMELASTHL = 1TOC4)#, 
SYNCSLASTHL = [TDC5]4#, 
MINUTES = ]TDL6)4s 
SECONDS = ITDC7I#, 
DAYS = ITDC8)#, 
YEARS = ITDL9J43 

DEFINE DATX = RTDLOJ#4, 
XCLOCX = RTOCII4#, 
cLOcx = RTD(2]#; 
TEMP = RTDC3]4#, 
KINDS = RTD(4)#, 
MCPVERS]ON = RTD(5] 43 


= 


FORMAT QUT FMXX¢"DATE ANALYZED "soap poet /te 1 O/ 

"TIME ANALYZED toToe"§ "pT oe"2"e lo) » 

Xic"’mCp VERSION NUMBER "eto/ 

"DATE TAKEN MeT2a"/ el Qa /M el 2/ 

"TIME TAKEN We TOetEeMs tae" ea To), 

XIMARKXIC™MCP VERSION NUMBER "sAlepw/ 
"DATE TAKEN MeT2e"sM eT 2aMs/ eID / 
"TIME TAKEN Me T2a sete 2etsMe TD)» 


24:18 


20 1S 


00361000 T 
00362000 T 
00363000 T 
00364000 T 
00365000 T 

7 LONGe 


00202001430 
00203001533 
0020!0022!0 
0020002382 
00208002512 


NEXT SEG 20 


00366000 TT 00208003634 ~ 


39 LONGe 
00395000 T 
00396000 
00397000 
00398000 
00399000 
00400000 
00401000 
00402000 
00403000 
00404000 
00405000 
00406000 
00407000 


00408000 


t 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
00409000 T 
00440000 T 
00411000 T 
00442000 T 
00413000 T 
00414000 T 
00445000 T 
00416000 T 
00417000 T 
00418000 T 
00419000 T 
00420000 T 
00421000 T 
00422000 T 
00423000 T 
00424000 T 
00425000 T 
00426000 T 
00427000 T 
00428000 T 
00429000 T 
00430000 T 
00431000 T 
00432000 T 
00433000 T 
00434000 T 
00435000 T 
00436000 T 

* 

T 

T 

T 

T 

T 

T 

T 


START OF SEGMENT 


00437000 
00438000 
00439000 
00440000 
00441000 
00442000 
00443000 


NEXT SEG 10 


00105006084 
001080060317 
00104006031 
00108006132 
0010:006133 
00108006281 
001010062! 
001040063:3 
00103006333 
00108006333 
001040068:0 
0010007182 
00108007132 


00108007482 


0010t0071%2 
0010#0084:2 
0010%0119%3 
0010%0126%4 
00108013031 


~ 001080132%0- 


00104013230 
00104013240 
001401013207 
0010:013523 
0010#0138%0 
001001401” 
00108014031 
001080140324 
001080140%t” 
00402014031 
0010#0140%4 


00108044084 0° 


001030140314 
0010%01401j4 


~ 00108014081. 


00108014034 
00108014034 


001080174084 0 0 


00103014034 
0010%0140%4 
00108014034 
0010044024 


OR ROOK 22 


00223014031 
00228014081 
00223014031 


00223014084 ~ 


00227014031 
00223014034 


oo22#014081 


FMX2¢"TIME OF THE LAST HALT™LOAD "pI2ott spout ste 12)¢ 
SYSIDC"DUMP TAKEN ON SYSTEM teAt)s 

FTAPDSK¢A4e" FILE CONTAINING DUMP 17S "pAqeA6e"/9A4eA6}» 
FCOMVALC"COMMON VALUE USED IS "s]5)»s 


FANALC"™ANALYZER VERSION@", Aq) 2 


FMX3C"TIME SINCE LAST HALT#=LOAD "sl 2e"3*sloets%e12)3 


FORMAT BADBED(C "exeetkee*e BAD BED ENTRY xxxke kx xaINDS 


FORMAT RBADNATF C™BAD DATF TAKEN aeooee')» 


BADXCLOCK ¢C"BAN TiMF TAKEN pagoett)» 
BADCLOCK¢C™BAD TIME OF H/L")3 


FORMAT BADCELL3C"WoRD 3 HAS THE FLAG BIT ONeeeee"™)3 


PROCEDURE TIMES CWHEN®HRSeMIN®SEC)3 
REaL WHEN’ INTEGER SECeMIN#HRS3 
BEGIN 

INTEGER T3 


IF WHEN LSS O OR WHEN GTR 5184000 THEN HRSteMINt=SEC#5100 ZOVERFLOW 


ELSE BEGIN T#SWHENS 

HRSt=sT DIV 216000; 

MINst=T DIV 3600 MoD 603 

SECt=T DIV 60 MOD 603 END; 
ENn OF TIMES PROCEDURES 


PROCEDURE NDATFSCADATEsMONTHeDAYe YEAR) 3 
VALUE ADATF3 
ALPHA ADATE3 
INTEGER MONTH,DAYsYEAR 3 
BEGIN 
REAL YeDaem$ 


LABEL ON3 
ARRAY DAYTABLE Coit]: 
STREAM PROCEDURE CONV CYEAR®DAY®DAT 93 
VALUE DAT 3 
BEGIN 
SIs LOC DAT? 
SI t= S] +33 
D1 t= YEAR} DS t= 2 OcT? 
DI t= DAY DS $= 3 OCT? 
ENDS 
FILL DAYTABLE C€*] WrTy 
093195959004 2004545)181224 2224302732 304s 3343 


CONV CYsD»eADATED? 
IF (CY MOp 4)#0) ANp cY¥#0) THEN 
BEGIN 
If D #60 THEN 
BEGIN 
M t= 43 GO TO ONS 


22 1S 


00444000 
00444100 
00444200 
00444300 
00444400 
00445000 


AAs 


136 LONGes 


00446000 


T 


00224014031 
00223014081 


“00223044084 


0022%014031 
00228014081 
00224014081 


NEXT SEG 10 


00108014081 


START OF SEGMENT xexxKeRKERK 23 
9 LONG» 


23 18 


00447000 


T 


NEXT SEG 10 


00102014081 


START OF SEGMENT *# x4 kA UO D4 


24 18 


00448000 
00449000 


T 
T 


20 LONG» 


00450000 


T 


0024:044031 
OO02GtO,4dty 


00104014081 


START OF SEGMENT kkk OR RK & BS 


25 1S 


9 LONGs NEXT SEG ‘10° 


00451000 
00452000 


T 
T 


0010014084 
001080140%1 


00453000 T 00108014031 


START OF SEGMENT 


26 1S 


START OF SEGMENT 


28 15 


START OF SEGMENT 


NEXT SEG © 4Q7™7 7 


00408014084 ~ CTT 


00454000 T 00108014084 
6 OK ak aK ok 26 
00455000 T 0026:0000!0 
00456000 T 00261000332 
00457000 T 00263000733 
00458000 T 0026%0009382° 
00459000 T 00262001132 
00460000 T 0026%0013%2 
18 LONGs NEXT SEG 10 
00461000 T 00102014084 
00462000 T 00108014081 
00463000 T 
00464000 T 00108044084 
00465000 T 00403044084 
00466000 T 00104014084 ~ 
We kK OO ok a oT 
00467000 T 00272000030 
00468000 T 002730000:0 — 
00469000 T 0027:%000113 
00470000 T 0027:!0001:3 
00471000 T 00273000133 
00472000 T 00278000332 
00473000 T 00273000382 
00474000 T 00271000333 © 
00475000 T 0027800040 
00476000 T 00273000411 
00477000 T° OO2700048y 
00478000 T 00273000533 
eK KK KKK Rk 28 
12 LONG» NEXT SEG "27 
00479000 T 002732000631 
00480000 T 00273000810 
00481000 T 002710010:0° 
00482000 T 00273001031 
00483000 T 00273004183 
00484000 T 0027%0012:0 


C) 


} 


om. 


O 


Cl 


ENDS 
IF D > 60 THEN ptsD=43 
END} 
FOR M $= 0 STEP 1 UNTIL 41 DO 
IF DAYTABLE [CM] GE D THEN GO To ON; 
ONS 
MONTH #8 M3 
Ip MFO THEN pr#0 ELSE %G60 AHEAD 
DAY 1% N * DAYTABLECM@1); 
YeaR :3Y3 
ENn OF PROGEDURE DaTEs Rec 


INTEGER MAXMODeMAXCORS 
INTFGER TABLESLOC$ 
BOOLEAN LNKSOK,AVALNKOK »SOMOQKF »SOMOKB? 
% UTILITY PROCEDURES 
REAL PROCEDURE OCTALCN):3% 
VALUE Ns & 
INTEGER N3Z 
2 N,C1#23]=0 SO THAT 3F N CONTAINS aT MOST A HALFPWORD THEN 
% OCTAL IF PRINTED UStNG O FORMAT, OR A FORMAT FOR FEWER OCTADES 
% WILL BE THE OCTAL REPRESENTATION OF N 
OCTALPHNel45t3)8CIF N77 THEN OCTALCNs (249211) ELSE 0)£339%39]3 
REA}, STREAM PROCEDURE CHRSCAT«SKIPPING* MANY) 3 
VALUE SKIPPING# MANY; & 
% RETURNING THE 7 oR LESS CHRS REQUIRED 
BEGIN 
STISATS SLssSL+SKIPPING; 
DIssLOC CHRSs OS#=8 LIT"O"; DIs=DI=MANY3 
DSt=MANY CHR} 
END, CHRS3 
INTPGER PROCEDURE HIHALFCLOC)3 
VALUE LOCs 
INTEGER LOcs & 
HIHALFPsCHRS¢eMrLOC,ROW,L0C.COLI,0,4)3% & 
INTEGER PROCEDURE LOHALFCLOC)? 2 
VALUE LOC3 
INTEGER LOC3 3 
LOHALF#SCHRSCMCLOCeROWeLOCeCOLJ] +404)3 & 
BOOLEAN STREAM PROCEDURE FLGBITCWORD)3 
BEGIN 
STtSWORDS & 
IF SB THEN TALLY&=43 2% 
FLGRIT&=sTALLY$ &% 
END FLGBYITE & 
ARRAY TyrSROW,LASTROWPOF1113 & 
SAVE ARRAY ALINE(O%48y3 
ARRAY By InEe0318)3 ; 
BOOLEAN NOTPRINTCALL# AVALNK3 
BOOLEAN STREAM PROCEDURE COMPAREWORDSC(S#DeW)3 
VALUE W3 
BEGIN 
LABEL XIT3 
StesSsP1T1=D3 
WCIe 8 SC NE@ pc THEN JUMP OUT TO XIT)$3 
TALLYS=15 
XTTI:COMPAREWORDSI=TALLY3 


27 18 


00485000 
00486000 
00487000 
00488000 
00489000 
00490000 
00491000 
00492000 
00493000 
00494000 
00495000 


32 LONG 


00496000 
00497000 
00498000 
00528000 
00529000 
00530000 
00531000 
00532000 
00533000 
00534000 
00535000 
00536000 
00537000 
00538000 
00539000 
00540000 
00541000 
00542000 
00543000 
00544000 
00545000 
00546000 
00547000 
00548000 
00549000 
00550000 
00551000 
00552000 
00553000 
00554000 
00555000 
00556000 
00557000 
00558000 
00559000 
00559050 
00559100 
00560000 
00561000 
00562000 
00563000 
00564000 
00565000 
00566000 
00567000 


AHA AMARA AAA HA IA I HAA A HA I HH? HHH AHH 


00271001322 
0027%0043%2 


0027300153 


0027%0015%3 
0027001782 
00271002031 
00273002182 
0027:0022°0 


00273002430. 


00271002631 
00272002733 


NEXT SEG 10 


00108014084 
00103014054 


00103014081 ~ 


00108014081 
00108014081 
00104014081 
0010014081 
00101014034 


00105044024 


00107044084 
001020;,40!4 


~ 00108014810 


0010'0148!0 
00103014630 
0010!014830 
00101014982 
00108014933 


00108015153 


00102015250 
0010:0153%2 
00102015332 
00103015382 
00108045322 
001030160%0 
0010016030 
0010%0160!0 
00108016010 
0010:0167%2 
00108016732 
00103016830 
00103016880 
0010%0169%2 
0010%0169%2 
00104017020 
0040%0174%1 
00108017782 
0010!0179!3 
00103017983 


00103017923 


00103017983 
00103018030 


0010301g80!0 


0010018031 
001080182314 
00103018382 


c* 


cy 


) 


- 


END COMPARING WORDS3 
% 
DEFINE PRINTCPRINT{s+PRINT2)=1F NODUMP THEN ELSE 
PRINTCORECPRINTL*PRINT2)43 
% 
PROCEDURE PRINTCORECFROMsT00)3 
VALUE FROM,TOO3 % 
INTEGER FROM,TOO! ¢ 
BEGIN & 
DEFINE FOR] = FOR | te O STEP 4 UNTIL Z1 DO#? ¢ 


STREAM PROCEDURE BUILDCFROM*LINE*XAsNA®XBeNBeNCoALsAQD$ & 
VALUE FROM*#NAPNBeNCOALPANS & 
REGIN DEsSLINESST:=LOc FROMsSI¢=S1+5;SKIP 35p3 
5 OCTANE DS 3= LIT ™ "3 AOC SI ge Xay 
NACOSS=LIT" "s2cDStslLIT” "38 OCTADED SSIS eXBS 
NBCOSHeLIT" "s2epSt=bLrt" 38 OCTADED)3 
NeCpSts19LIT" "3 pnSssLyT™ "53 % 
ALCSTPESXASNACOSESLIT" "snsts8 CHRIG ¥ 
StteXBiNBeOSt=LiT™ "spNss=8 CHRIF x 
NCcOS#a9LrT* ")% OSt=6 LIT * #23 END BUILDS ¥ 
STREAM PROCEDURE MVCAsB)? BEGIN SItsAsDI%=Bs0Sis WDS END MV3 
STREAM PROCEDURE EXPAND CALINEsBLINE®N)# VALUE N? 
BEGIN DISsBLINE# 18CDSs=8LIT" ")3 DI seBLINE$ D1ltsD1+73 
SItSALINES SIssS14+73 
NC2€8 OCTADES Dis=DI4+1)3 SIs=S14 93 
END EXPANDS 
BOOLEAN MATCHeFIRSTeLASTeSTARD? 
INTEGER IeReSTARCOUNTS 
ROOLEAN ALeAQ} INTEGER ZeZ1i3 3 
LABEL ENITLINE? 
IF DUMPALPHAONLY THEN ALt=TRUE ELSE 
1F DUMPALPHAOCTAL THEN AOSsTRUE ELSE 
1F NOT DUMPOCTALONLY TwWEN 
IFCISSAREATYPECIF NOTPRINTCALL THEN LINKTYPE ELSE 
TYPMAX+1]) GTR O AND AVALNK THEN ELSE 
IF TtsABS(J)#3 THEN AL:=sTRUE ELSE 
IF 1#2 THEN AOS=TRUES 
Z21:=(ZtsIF AL THEN 12 ELSE IF ALt=A0 THEN 4 ELSE 69813 
IF NOT CAL OR AQ) THEN AOsSTRUES 
AOt#A0 AND TRUE3 ALs=al AND TRUE? & 


STARCOUNTSSIF Zei2 THEN 114 ELSE IF Z=6 THEN 120 ELSE 1193 


FIRSTS*TRUF3 
START t= FROM} 


ERROR NUMBER 100 == START, 


TOO8=T00,(32116]3 FROMt=FROM,(32316]3 
IF TOO>FROM THEN 3% 
DO & 
BEGIN &@ 
IF NOT LAST t% C€TOO = FROM LE@ Z) THEN % NOT LAST LINE 
BEGIN 
IF FIRST THEN 
IN 


BEG 
1F FROMZROW=CFROM+7),ROW THEN MOVE CMC FROM,ROWsFROM,COLJ»+LASTROW,Z) 


ELSE % 
FORT MVCMrCFROM+I2,ROWsCFROM4+1),.COLJ, 


00568000 
00568100 
00568200 
00568300 
00568400 
00569000 
00570000 
00571000 


(00572000 


00573000 


START OF SEGMENT 


00576000 
00577000 
00578000 
00579000 
00580000 
00581000 
00582000 
00583000 
00584000 
00585000 
00586000 
00586400 
00586110 
00586120 
00586130 
00586140 
00587000 
00588000 
00589000 
00589100 
00590000 
00591000 
00592000 
00593000 


00594000 


00594100 
00594200 


(00594300 


00594400 
00595000 
00596000 
00597000 
00597100 


EMRE SKK 


00598000 
00599000 
00600000 
00601000 
00602000 
00603000 
00604000 
00605000 
00606000 
00607000 
00608000 


Se i ee ne | 


Pere res T 
0029%t0000!0° 


OAD AAA AAD AAMAS HAA A A 


0010!0183%2 
001020184:0 
0010301840 
00108018480 
001010184:%0 
001030184:0 
00103018420 
001030184:0 


001050184:0 


00103018420 


0029%0000:0 
00293000080 


00298000182 


00293000533 
002930011382 


00298001611. 


00291002230 
0029%009053a 


(00298000783 


00291003123 
0029%0033%2 
0029%0033%2 
0029:003533 
00293003630 


oe 


O029T004182 9 


00293004132 
00298004182 
00293004182 
00293004132 
00298004132 


0029%0044:0° 


002930046%4 
00298004830 


0029%0053%2 
00298005610 


0029:30058%1 ~— 


002930064:0 
00293006610 
0029:006884 
00293007323 
00298007450 


002928007439 
002930076324 
00293007733 
002930076:0 
00298007830 
0029%30080:0 
0029480080: 1 
0029:008034 
002980081%2 
002980087:2 
00298008723 


(00294005080 


oN 


oN 


{) 


LASTROW CII)3 
STARDS=FALSE}3 
IF Z=412 THEN GO EDITLINE? © 
FIRSTEsFALSE3 
END 
ELSE 
BEGIN 
IF FROM,ROWSCFROM+Z),ROW THEN MOVECMCFROM,ROWsFROM,COLIJ* THISROW?Z) 
ELSE &% 
FORT MVCMECFROM4+1),ROW* CFROM4+1), COL)» 
THYSROWCII23 
IF CMATCHSSCOMPAREWORDSCTHISROWLOJ,LASTROWLO0I.Z)) &% 
AND NOT STARD THEN 
BEGIN ; 
IF pDOUBLESPACE THEN 
WRITECPLDBLIJ»STARZsSTARCOUNT) ELSE 
WRITECP*®STARZeSTARCOUNT)$ 
STARDt=TRUE3 
ENDS 
IF NOT MATCH THEN 
BEGIN 
STARDt=FALSE3 
MOVECTHISROWsLASTROW*Z)3 & 
ENDS 
END) 
END3% IF NOT LAST 
IF WAST OR 
NOT STARD OR 
NOT MATCH THEN 
BEGIN 
EDITLINGS 
R s= MINCZeTOO"™FROM)s & 
IFCFROM+R) ROW NEQ@ FROM,ROW THEN % CROSS ROW ROUND 
BUILDCFROMsALINEC#] eMC FROM,ROW*®FROM,COL Js 512"FROM,COLe 
MECFROM+R) eROWR OJ] e CFROMHR) eCOLeIF R LSS Z THEN & 
Z°R ELSE OsALs AO) ELSE % STILL IN SAME ROW OF M ARRAY 
BUILDCFROM sALINEL*]+MCFROMsROWPFROMeCOLI ORs 
MCO*eOJ*O*#IF R LSS Z THEN ZR ELSE OrAbeA0)3 
IF Z=12 THEN IF FIRST THEN 
BEGIN 
FIRSTI=FALSE$ 
IF DONTPRINTLINKS THEN ELSE 
BEGIN 
EXPANDCALINE »BLINE » 2+REALCAVALNK))$ 
WRITECPEDBLIJe18eBLINEL¥] 3 
END} 
END} 
IF DOUBLESPACE THEN WRYTECPEDBLIJ]e18eALINEC*)]) ELSE 
WRITECPe1BeALINEL eI) $ 
END; & 
END UNTIL CFROM %* FROM + Z) GEQ TOOS &% 
WRITECP)? & 
END PRINT? & 


FORMAT 1TEMCA5e"™ = %2¢00X1)0A5,X99)F 


29 1S 


30 1S 


00609000 
00610000 
00610100 
00611000 
00612000 


00613000 


00614000 
00615000 


00616000 


00617000 
00618000 
00619000 
00620000 
00621000 
00622000 
00623000 
00624000 
00625000 
00626000 
00627000 
00628000 
00629000 
00630000 
00631000 
00632000 
00633000 
00634000 
00635000 
00636000 
00637000 
00637100 
00638000 


00639000 


00640000 
00641000 
00642000 
00643000 
00644000 
00644100 
00644200 
00644300 
00644310 
00644320 
00644400 


00644500 


00644510 
00644600 
00645000 
00646000 
00647000 
00648000 
00649000 
00650000 


199 LONGs 


00651000 


T 


AAA AHH HHA BH HAHAHAHAHAHA Ht A HHA A THT AH FAR FAA TH HSS 


00298009023 
0029%0095% 


rt 
3 


00292009630 
00291009733 
00293009830 


-0029180098:0 


0029%0098!0 
0029300981 


O02920104t4> 


0029:0105%2 
00292011031 


OO29F0113I3F° 


00293011680 
002920447382 


00297011733 


00291011733 
00293042630 
0029301334:0— 
00293013532 
0029%01435%2 


~ 0029901358 


aca 


00298043680 


0029204363 
0029404388 
0029301388 
0029301383 


1 


1 
| 
i 


0029%0138%14 
002910136831 
00293013983 


00292014010 -~ 


0029401403 


1 


00298014132 


002950144%1 ~~ 


00293014631 
00292015230 
00293015630 
002930159%2 
0029%016382 


00293016820 ~~ 


0029'0169%3 
002930170580 


(00298017182 


0029301713 


3 


00293017280 


“0029801743 
0029%0178% 
0029301783 
002930478! 


1 
i 
i 


jae 


00293018383 


0029801883 
002930188: 
0029401903 
0029301948 
NEXT SEG” 


1 
1 
i 


4 


001030184:0 
START OF SEGMENT 2&3 4 RK AE x 
11 LONG»s 


30 
NEXT SEG - 


40-0 


BOO).EAN PROCEDURE PDATADESCCAT® WHAT)? VALUE AT3 


ARRAY LINECOt16)3 


PROCEDURE DISPLAYITCWHAT*RANGE* ADR) 
VALUE WHATsRANGE* ADRS 

INTEGER WHAT» ADR3 

BOOLEAN RANGE3 


BEGr 


N 


INTEGER HobeT3 


BOOLEAN PP} 


INTEGER AT3 REAL WHATSFORWARD3 
%103- 


TtstF PPt=cADR=0) THEN WHAT ELSE ADR3 
IF NOT PP THEN IF PDATADESCCT»H) AND H.£8#10) NEQ@ O THEN ELSE 


RANGE S=sFALSE 


WRITECLINEL* I] eI TEMPOCTALCT) » 
OCTALCHISHIHALFCT))>» 
OCTALCLS=LOHALF CT) 2» 


; 


IF RANGE THEN OCTALCH,C 32810] 4+L.CF™1) 


ELSE 
IF 129SWHAT AND WHATSPRTMAX THEN 


MOVECNAMSCNAMELWHATI,CFIeLINEL4 Je 


NAMEC WHAT], FF)3 


IF SGLTOG THEN WRITECP.17,LINEL*]) ELSE 


WRITECPLOBLIe179LINEL*))3 


END 


DEFINE DISPLAYCDISPLAY1+DISPLAY2)= 
BOOLEAN PROCEDURE OPERAND¢CATs WHAT)? 


BEGY 


END 
BOOL, 


BEG! 


IF PP THEN 
DISPLAYIT3 


DISPLAYITCDISPLAY1¢D1SPLAY220)#3 


VALUE ATi ¢¥ 
INTEGER AT3 
REAL, WHATS & 
N % 


INTEGER ReC3 & 


% 


& 


IF FLGBITCMERESAT eROWe CEFAT,COLJ) THEN & 


OPERANDS =FALSE & 


ELSE &% 
BEGIN & 


WHATS=MEReC]3 & 
OPERANDS=TRUES & 


ENn?: & 
OPERANDS & 


FAN PROCEDURE DESCRIPTORCATsWHAT*#KIND)$ 


VALUE AT3 
INTEGER AT3 


REAL WHATeKINDS 


N 
INTEGER Roec3 


IF CKINDHSOCTALCCHRSCMERISAT,ROW CHEAT. COLJs0e12))2"40" THEN 


BEGIN 


DESCRIPTORteTRUES 
WHATSSCHRSCMER,C351,7)93 


END? 


31 


1S 


32 158 


00651100 
00651200 
00652000 
00653000 
00654000 
00655000 
00656000 
00657000 
00658000 


START OF SEGMENT 


00658100 
00658500 
00658600 
00658700 
00659000 
00660000 
00661000 
00662000 
00663000 
00664000 
00665000 
00666000 
00666500 
00666900 
00667000 
00668000 


53 LONG 


00668100 
00668200 
00669000 
00670000 
00671000 
00672000 
00673000 
00674000 


START OF SEGMENT 


00675000 
00676000 
00677000 
00678000 
00679000 
00680000 
00681000 
00682000 


12 LONG 


00683000 
00684000 


~ 00685000 


00686000 
00687000 


' 00688000 


START OF SEGMENT 


00689000 
00690000 
00691000 
00692000 
00693000 


AH AA AKA HHH HHH HH RAR HAHAHA AR HHH AA AAA AH TH 


00108018480 
0010#0184!0 
0010#0184:0 | 
00103018733 
00108018783 


OO108018793 


00108016733 
00108018733 
0010%018783 — 


eee. re 31 


0031:0000%0 
003180000!0 
003130003t2 
0031#0007%2 
0031000884 
00313001630 
00313001923 
00312002332 
00312002684 
0031#0033%2 


00318003582 


0031%003830 
00313004030 


0031$0045t2 


0031#004533 
00318005084 


NEXT SEG 10 


0010!018733 
00108018733 


00103018733 — 


00108048733 
00101018733 
00108048783 
0010!018733 
00103048733 


00322000080 
00321000430 
00323000532 
00323000533 
0032:0006:0 
00323000830 
0032800081 
00323000881 


NEXT SEG 10 


00103018733 
00104018733 


00108018733 ~ 


001030187%3 
0010%018733 


00108018783 — 
RR OE 33 


00338000030 
0033!0006314 
0033000782 
0033%000733 
00331001182 


ek OK Kk ak KK 32° 


END DESCRIPTORS 


BOOLEAN PROCEDURE PDATADESECAT#*WHAT)3 
VALUE AT3 
INTEGER AT} 
Real WHAT} 
BEGIN 
INTEGER KIND? 


IF DESCRIPTORCAT®WHAT,K PND? AND 
KIND LSS "60" AND KIND GE® "50" THEN 
PDATADESC%=TRUES 

END3 


BOOLEAN PROCEDURE CONTROLDESCCAT#WHAT)3 
VALUE AT3 
INTeGER AT? 
REAL WHAT3 
BEGIN 
INTEGER TYP 


CONTROLDESC t=DESCRIPTORCATaWHATs TYP) AND 
TYP,£40%1]=4 AND 
TYP, C45%11=03 
END CONTROLDESC}$ 


INTEGER MINLNKeMINBAD sMAXBADeMAXLNKS & 
BOOLEAN NEEDCHECKAVAILNKS;2FALSE IF OPMT DUMP 
ARRAY COMMT[0319]3 BOOLEAN COMNT3 

PROCEDURE MCPENTRIES3 
BEGIN 
SglLT0qteTRUE3 
DISPLAYCBEDs FALSE) 
DISPLAYCPRT»sFALSE)3 
DISPLAYCJAR»FALSE)3 
DISPLAYCINTRNSCeFALSE)$ 
DISPLAY (SHEET FALSE)3 
DISPLAY(JOBNUM»FALSE)3 
DISPLAYCNFOsFALSE)? 
DISPLAYCISTACKs FALSE) 
DISPLAYCWAITQUPe FALSE) 3 
DISPLAYCPIMIXe FALSE) 3 
DISPLAYCP2MIXeFALSE)D3 
SGLTOGtsFALSE3 
ENDS 

PROCEDURE GETPRTENTRIES$ 
REGIN 
REAL ADReWCePRIROWSL3 


REAL ADRR} 

INTEGER [eK 3 

ARRAY MIx£or4o)3 

FORMAT PRTOUTCX10e"PRT LOCATIONSS"/ 


X20e"™M IX» X20eNPRT"/ Do 
Fi¢ X2Q0 APeX209 A523 


FORMAT BADPRTC"k**ke*#*BAD PRT DESCRIPTOR¥xxexk#™) 3 


33 IS 


00694000 


T 


14 LONG» 


00695000 
00696000 
00697000 
00698000 
00699000 
00700000 


START OF SEGMENT 


34 15S 


00701000 
00702000 
00703000 
00704000 


8 LONG 


00705000 
00706000 
00707000 
00708000 
00709000 
00740000 


START OF SEGMENT 


, 00711000 


35 1S 


00742000 
00713000 
00714000 


8 LONG 


00715000 


00716000 


00717000 
00718000 
00719000 
00719100 
00720000 
00721000 
00722000 
00723000 
00724000 
00725000 
00726000 
00727000 
00728000 
00729000 
00730000 
007304100 
00731000 
00732000 
00733000 
00734000 


START OF SEGMENT 


00735000 
00736000 


00737000 


00738000 


START OF SEGMENT 


37 158 


00739000 
00740000 


AAA A KAA AHA 


T 


20 LONGe 


00741000 


T 


0033#0011%2 


NEXT SEG 10 


00108018733 


00108018723 


00102018783 
001080187383 
00103018733 
0010%0187:3 


RIK 34 


00344000080 
0034000143 
00341000383 


“0034800048; 
NEXT SEG 10 


00103018733 
00104018733 
00102018733 
0010018733 
00103018733 
001408048723 


Pee eT Se eT 35 
“00353000080 ~ 


0035#0001?3 
003540003%2 


0035%0005#2 | 
NEXT SEG 10 


00102018733 
00103018733 
0010:018733 
00104019080 


001030190t0 


0010#019030 
0010201491133 
0010201493%2 
00103019434 
00103049610 
00103019733 
00102019912 
001040200%1 


00108020280 ~~ 


001010203183 
00108020532 
00108020681 - 
00102020880 
0010%0209%2 
0010#0209%2 
0010%0209%2 
0010:80209%2 


ee O36 


00362000020 
003630000380 


~ 00362000080 — 


0036%000133 


aK KKK ok a feo 37 
io a ee ee 


00374000133 


NEXT SEG 36 | 
0036:000133 


LABEL XIT3 
LAREL NeExT3 . 

IF NOTCPDATADESCePRT»L2 AND L.CF NEQ O AND L,£8410) GTR O 
AND L.r8#107 LSS 44) THEN BEGIN 
MIXMAXtsDEFINEDMIXMAXS % 

WRITE CpeBADPRT)$ GO XIT END3 
ADR?= Lef33815)3 
WCs= L»l8t10]3 
Kiet} 
MIXMAXS=WO"13 
FoR 1: 1 STEP 1 UNTIL ¢(We"1) DO BEGIN 
IF PDATADESCCADR#+I]*PRTROW) THEN ELSE PRTROW?=03 
IF PRTROW =O THEN 
GO TO NEXT 
Keaky13 
MIXfK]is [3 % SAVE MyX NUMBER 
MEXCK@skKel t= PRTROWS 
NEXTS3 
ENDS % OF FINDING PRTS & VALIO MrXES3 
WRITECP.PRTOUT)3 
WRITECPeFieFOR f#eO STEP 1 UNTIL K DO OCTALCMIXE11.033245])95 
XT! 
FND OF GETPRTENTRIES3 


FOR LINK CK 


PROCEDURE NUMPARRAYCPRTLOC)S VALUE PRTLOC3 1tNTEGER PRTLOC3 
BEGIN 
INTFGER LOCsSIZEaI? 


FORMAT FCXOeT4eXo92(09X1)93 


DISPLAYCPRTLOCs TRUE )} 

IF pRTLOC GEQ 129 AND PRTLOC LEQ PRTMAX THEN 

IF PDATADESCCPRTLOC*L0C) THEN 

IF siZe:#lL0c.l8:10) NEQ O THEN 

IF LOctsLOC,CF GTR O THEN 

BEGIN 
FOR 1320 STEP 1 UNTIL SyZE™1 DO 
WRITECPsFe Te OCTALCHIHALFCLOC+I) 2» OCTALCLOHALFCLOC4+1))93 
WRITECPEOBLI)3 

END} 

END DUMPARRAY$ 


PROCEDURE DUMPCESSPOOL} 


BEGIN 
FORMAT HDRO"D25"ABN=ABNORMAL"/"D24"RR SREAD READY"/ 


"D23"BFLSBUFFER FINAL LOCATION" 

"DoyeWR =WRrTE READY"/"*po0"BSYSBUSY"/ 
"D1BeNTR=OTCU NOT READY#/ 

"NOTESBSY AND NTR#ADAPTER/DTTU NOT READY"//7)3 


FORMAT WHATFILEC"CORE PORTION OF SEPTIC /"sAleA6r//)3 


START OF SEGMENT 4 # > 38 
9 LONGs 


38 1S 


36 1S 


00742000 


00743000 
00744000 


00745000" 


00746000 
00747000 


00748000 


00749000 
00750000 
00751000 
00752000 
00753000 


00754000 


00755000 
00756000 
00757000 
00758000 
00759000 
00760000 
00761000 
00762000 
00763000 
00763010 


T 


54 LONGs 


00763020 


00763022 
00763024 


00763026 


T 
T 
i 


T 


AHH AR AAA AA AHH AHHH 


NEXT SEG 36 


0036#0001337 
00363000133 
0036!000183 


0036!0005%2°- 


0036!000830 
00368000932 


00368001333 
00368001582 


“003680016t0 © 


0036:001732 
00361002183 


00363002533 
00363002610 


00363002782 — 


00368002824 
00363003084 


00361003132 — 


0036%003133 
00363003434 


~ 0036800483077 — 


00363004982 


NEXT SEG 10 


~ 00368001234 © 


0036800248) OU 


001080209I2 “7 


0010%0209%2 
0010%0209%2 


“START OF SEGMENT #*4%% eR RRR 39 7 


0039000030 


START OF SEGMENT ok: dOK 40 


40 1S 


39 15 


START OF SEGMENT 
_ START OF SEGMENT 


42 1S 


10 LONG» NEXT SEG ~397 
00763028 T 00393000030 
00763030 T 0039800012 
00763032 T 00391000332 
00763034 T 00393000431 
00763036 T 00393000631 
00763038 T 0039800092 — 
00763040 T 0039:000933 
00763042 T 00398001333 
00763044 T 003930098314 
00763046 T 00393003231 
00763048 T 00398003231 

35 LONG» NEXT SEG ~ 40 
00763100 T 00108020982 
00763105 T 00108020912 
00763110 T 0010:0209%2 

ee OK ok a oe ok 44 

ae RK a aK ok ok 42 
00763115 T 0042:0000%07 ~-~~ 
00763120 T 00422000080 
00763125 T 00423000080 
00763130 T 00421000030 

40 LONG» NEXT SEG 41 
00763135 T 0041:0000:0 


START OF SEGMENT #*ee ee eeRH 43 


Cy 


REAL I*BeFROM$ BOOLEAN LO$3 
File SEPTIC DISK SERIAL €2*60*MYUSESINPUT)} 
DEFINE BUMPY = J[ssyeleys 
DEFYNE INTSP=INFO#$ 
ARRAY CCeNAMEO2373 
LABFL LOOPsr0ds 
STREAM PROCEDURE INITCA)3 
BEGIN DI$sA3 DSts32 LIT 
"PASS INTACT, INTWRITE READ "3 
END INITS 
STREAM PROCEDURE FLLCAsBeCeDeE)3 VALUE BeCeD3 
BEGIN DI8sEs 15¢DSteBlLyrT" ")3 Oltsrs SLisa3 
NSt=woSs STt=LOc Bs Dy ted +43 
2(DSta2PECs AbENIsD tad s2sNStaryYLLsDLreaAsNStaLyTws 3 
Drtspyeqs OSteaLIT” 
Syt=S7+6) SKIP 9 SBF ¥ START AT D25 
IF SB THEN DSt=3LIT"ABNY ELSE DJ t=DI+33 SKIP SBS xD25 
Ol *sD] +33 
IF SB THEN DSs*3LIT"RR © ELSE DIsSDI+33 SKIP SB3 %D24 
DLt=D1+33 , 
IF SB THEN DSse3LIT"BFLY ELSE DIs=DI+33 SKIP SB3 %D23 
DIwepl+33 
SKIP SBS%IGNORE D22 
IF SR THEN OSt®3LIT"°WR " ELSE DIs=D1433 SKIP SBS %D21 
DOLMspl+33 
IF SR THEN DSts3brT"BSY"” ELSE DIt=DI+33 SKIP SB; %D20 
DIt=p[ +33 
SKIP SBI ZIGNORE 19 
IF SB THEN DSte3LyT"NTRY ELSE DT teD] 433 ZD18 
END FLL3 
PROCEDURE TrMCAeCC)$ VALUE AS REAL AB ARRAY CCLO73 
BEGIN INTEGER Jou} 


STREAM PROCEDURE FFCA#B)3 

REGIN SI%sas D1t=B3 
4epSte2 DFC? DSteLIT "893 
Drispisis DSt=5 LyT & 3 

END FF3 

FOR 1%=3 STEP #1 UNTyL O Do 

BEGIN CCLIJ =Js=A MON 603 
At=A DIV 603 

END3 

FFCCCeLINEL7I)3 

END TIMS 


BOOLEAN STREAM PROCEDURE GLUNKCA)3 

BEGIN SIs#A3 IF Sc" " THEN TALLY3=13 
GLUNKS=TALLY} 

END GLUNK3 

PROCEDURE MMM(Bel)$ VALUE Bs REAL 1+B3 

BeGiN REAL C3 


STREAM PROCEDURE MOVE (AeB)3 
BEGIN SItsAs DiteBs 
8CIF TOGGLE THEN DS#=LIT " " ELSE 
IF Scatte" THEN DStaCHR ELSE DSt=CHR)$ 


43 1S 


START OF 


44 15S 


START OF SEGMENT 


00418000080 


0041:0035%33 0 


44 


45 
004580000:0°—°>° °° 77 77 


11 LONGs NEXT SEG 41 
00763140 T 0041%0000:0 
00763145 T 
00763150 T 0041:!0006:0 
00763155 T 0041:%0006t0 
00763160 T 00411000630 
00763165 T 0041:0008:0 
00763170 T 004 140008:0 
00763175 T 0044%0070!0 ~~ 
00763180 T 0041:0010%4 
00763185 T 0041:0014%4 
00763190 T 004140014314 
00763195 T 00412001431 
00763200 T 0041430047383 
00763205 T 0044%0018:0 — 
00763210 T 0041:0020%4 
00763215 T 0041#0021%3 
00763220 T 0041%0020%0 
00763225 T 0041!002410 
00763230 T 00412002480 
00763235 T 004180026:0 
00763240 T 00414002631 
00763245 T 00413002831 
00763250 T 00413002831 
00763255 T 00412002982 
00763260 T 00414003142 
00763265 T 00413003132 
00763270 T 004140033382 
00763275 T 00443003333 
00763280 T° 0044200338377 “> 
00763285 T 00413003583 
00763290 T 004144003533 
00763295 T 00418003523" 

SFGMENT KKK 
00763300 T 004430000390 
00763305 T 0044#0000:0 
00763310 T 00443000031 
00763315 T 0044t0001383 
00763320 T 0044:0003%2 
00763325 T 004480003!2 
00763330 T 0044:0005%2 
00763335 T 004438000782 — 
00763340 T 0044:0008!1 
00763345 T 0044:0010%4 
00763350 T 00443:0012:0 ~~ 

15 LONGs NEXT SEG 4i 
00763355 T 00418003533 
00763360 T 
00763365 T 0041:0037%2 
00763370 T 0041:%0037:%2 

° 00763375 T 004180038680 

00763380 T 0041#0038:0 
RR ROR Ko 

00763385 T 

00763390 T 0045#0000?0 

00763395 T 00453000031 

00763400 T (00453000183 070777 


cy 


cy 


i H 
‘a? 


END MOVE 
FOR c%=0 STEP 1 UNTIL pwi pO 
MOVECINTSPCBUMPIJ],LINEPCI)3 
WRITECPsBeLINEG*])3 

ENO?3 


LELYLAXAAALAASASALLAYSTART 
INITOCNAM)S 
IF MPERANDCTOGLE*I1) AND BOOLEANCI,C13313) THEN 
IF pDATADESCCARGH*FROM) AND FROMe(68$101]=128 THEN 
IF OPERAND(CFROMSSFROM.CF)+12701) THEN LOS=TRUE 
ELSr GO TO FOU FLSE GO TO FOJ ELSE GO TO FOWs 
WRITECPEPAGE))3 
WRITECPOWHATFILE® Tel 636) 01) 3 
DISPLAYCARGHe TRUE D3 
WRITE CP sHDRDE 
GO fOJ} ¥ VOID THYS CARD TO DUMP SEPTIC DISK FILE 
FILt, SEPTIC WITH "SEPTIC tay 
WHILE LO DO 
BEGIN READCSEPTICe GO*INTSpLeJICEQUIE JTts03 
LOOP? 
IF CB&t=INTSPE1J)e£9%9I)=0 THEN GO TO EOU3 
FLLCNAMIB, C732] J +B elCOt age B LidthJ Bp L213 12) eLINE)$ 
TIMCINTSPEBUMPIJ,.£18330]*CC)3 
WRITECPe1l0eLINEC¥I)3 
IF (€Bt=B,.£33215])#0 ‘THEN 
BEGIN WHILE B GTR 14 DO 
BEGIN MMMC14,].)3 Bs=Bri4ds END? 
MMMCBoel)3 
ENO} 
WRITECP)3 
IF 1459 THEN 
IF GLUNKCINTSPEBUMPIJ) THEN ELSE GO TO LOOP3 
END; 
FOJt If LO THEN 
BEGIN CLOSECSEPTIC)$ LO?=FALSE3 
IF OPEFRAND(CFROM4+125e1) AND | NEQ@ O THEN 
tF OPERANDCFROM4+62,7) AND cTs0 OR 1264) THEN 
BEGIN FROMf=FROM+ 73 
IF (Bte542"(RtsFROM,COL)) LSS ¢1%360) THEN 
BEGIN MOVECMFFROM,ROW,RJ»s INTSP2B)3 
RtaO} [2=60"B3 FROM? =FROM+603 
END ELSE Bi=03 
MOVECMEFROM,eROWS RI 2 INTSPLBIe I) 
1:=03; GO TO Loop; 
ENDS ENn& END3 


INTEGER STREAM PROCEDURE MCPCNTCA)3 VALUE A$ 
BEGIN Srs=sLOc AZ SIseSit+13 
7¢(Ie TOGGLE THEN TALLYtsTaLLY+1 ELSE IF Sc NE@ "0" THEN 
TALLYSSTALL Yat sSpissyet 3 MCPCNT$=TALLYS 
END OF mCPCNT3& 
INTEGER PRTICODE3 % SET TO Ort OR 2 BY CHECKPRTIFILE 
PROCEDURE DATIMES 
BEGIN INTEGER I$ BOOLEAN B3 


STREAM PROCEDURE PRTIFILEMESS(PsLaC)3 VALUE C3 


00763405 
00763410 
00763415 
00763420 
00763425 
45 15 18 LONG 
00763430 
00763435 
00763440 
00763445 
00763450 
00763455 
00763460 
00763465 
00763470 
00763475 
00763480 
00763485 
00763490 
00763495 
00763500 
00763505 
00763510 
00763515 
00763520 
00763525 
00763530 
00763535 
00763540 
00763545 
00763550 
00763555 
00763560 
00763565 
00763570 
00763575 
00763580 
00763585 
00763590 
00763595 
00763600 
00763605 
00763610 
00763615 
00763620 
00763625 
41 1S 144 LONG 
00765000 
00766000 
00767000 
00768000 
00769000 
00769900 
00770000 
00771000 


START OF SEGMENT kkk KE & 


00771100 T 


AAHAR HAMA HAHAHAHA HAHAHAHA TAA AA AA AA AT tw Gi 


0045:0003!%2 
00458000323 


°00454000820— 


004543004133 
00453004533 


NEXT SEG 41 


00414003680 
0041400386#0 


0041430040!0 ~~ ~~ 


00412004230 
0041:004533 
00413004982 
0041004933 
0041005323 
00413006430 
0041006533 
00413006824 


004180069%2 ~~ 


0041%00735%2 
004130073383 
00414007933 
00414008030 
0041200a2%1 
00413008691 
00412009030 
00411009410 


00412009630 


00413009830 
00412010230 
004480103%2 
00442010382 
00414#010782 


00418010783 © 


O041:011182 
004144011183 


00449011280 7 


004130115%2 
00413041783 


" 004 ,:04291723 


0041019383 
00448019644 


0044%80430%0 ~- 


0041%0133%3 
00413013491 


00413013733 00 


00413013982 


NEXT SEG 10 
~ 00103020982 0 


0010:0209%2 
001030210%1 


0010#0243%2 
0010302144320 


00108021490 


0010024410 


0046%0000%0 


46 


© 00408024210 


GN 


> 


Cy 


Ly 3 


Or "GE “Ge in Ge. Oe Os SOF -@ 


CO 


BEGIN LABEL MAYBE sBADeFIXsXITS 
Syt=Ps Pyssbs pSts4 wos 
CLEsCl4+C3 
qO xX1;Ts 2% 0 
GO MAYBEs % 4 
GO BAD3 % 2 
MAYBEtDS8=9LIT"CAPPEARS "$3 GO FIX3 
BADt DSteq2LIT"(CDEFINITELY "$3 Go FIX3 
FIX sDS2e10LIT" INCORRECT "3 
XIT sOSe=32LIT* 3 
END PRTFILEMESS} 
Ip NOT COMMON THEN BEGIN 
IF NOT OPERAND(C3*MCPVFERSION) THEN WRITECPeBADCELL3)3 
IF FLGBITCME DATE eROWsDATE+COL]) THEN 
WRITECPeBADDATE) ELSE 
BEGIN 
DATX ts MEDATF»ROWS DATE se COL}} 
DATES (CDATX, DATE TAKENs DAYS, YEARS) 
ENDS & OF DATE 
IF FLGBITCMEXCLOCK,ROW*eXCLOCK,COLJ) THEN 
WRITE ¢CPeBADXCLOCK) ELSE 
BEGIN 
XCLOCX 3% MEXCLOCKsROWeXCLOCK,COLI3 
TIMESCXCLOCX*s TIMETAKENs MINUTES» SECONDS )3 
END$ % OF XcLOcK 
PRTIFILEMESSCPRTNAME sLINeePRTICODE)3 
WRITECP,» SeLINEL*] 23 
WRITE CPeFANALe VERSION) 
WRITECP,FTAPDSKsFILETYPEs TOMFIDs (686), TOMFIDs 
TOF ID. COt63eTDFID)3 
WRITE CPs FCOMVAL» REAL CCOMMON) 23 
WRITECP*sXiMARKXIeIF Bt=Clg=mMCPCNTCMCPVERSION) GTR 6) 
THEN MCPVERSION,C6#6] ELSE " "+ IF B THEN 6 ELSE IF I=0 
THEN 1 ELSE TeMCPVERSION*DATETAKENsDAYS# YEARS» 
TIME TAKEN» MINUTES SECONDS )3 
END} 
Ip SHAREDISK THEN 
Ir OPERANDCSYSNOs]) AND | GE® O AND {I LE@ 3 THEN 
WRITECPsSYSiIne +1793 
NATESCTIMECO) eDATEANALYZED eDAYS» YEARS) # 
TIMESCTIME¢41) eTIMEANALYZED eMINUTES» SECONDS) 3 
WRITECPeFMXX*eDATEANALYZEDs DAYS» YEARSs TIMEANALYZEDs MINUTES *# SECONDS )3 
IF COMMON THEN WRITECP)3 
IF NOT COMMON THEN BEGIN 
IF FLGBITCMECLOCKeROWeclLocKeCOLJ) THEN 
WRITECP*BADCLOCK) ELSE 
BEGIN 
CLOCX $= MECLOCKeROW*CLOCK.cOLI]} 
IF XxeLOcX LSS cLOeX THEN XcblOcx:=xcLOcx+51840003 
TIMESCXCLOCK*CLOCX» TIMELASTHLeMINUTESs SECONDS) & 
WRITECPeFMX2sTIMELASTHLeMINUTESs SECONDS) 3 
: TIMESCCLOCX»SINCSLASTHL» MINUTES» SECONDS) 3 
WRITE CPCDBLJ»FMX3»SINCSLASTHL»eMINUTESsSECONDS)3 
END 3 %OF CLOCK 
PND? 
END3% Of DATIME 


00771105 
00771110 
00771115 
00771120 
00771125 
00771130 
00771135 
00771140 
00771145 
00771150 
00771155 
00772000 
00773000 
00774000 
00775000 
00776000 
00777000 
00778000 
00779000 
00780000 
00781000 
00782000 
00783000 
00784000 
00785000 
00785400 
00785500 
00785550 
00785600 
00785610 
00785700 
00786000 
00787000 
00788000 
00789000 
00790000 
00790100 
00790110 
00790120 
00791000 
00792000 
00793000 
00794000 
00795000 


00796000 ~ 


00797000 
00798000 
00799000 
00800000 
00801000 
00802000 
00803000 
00804000 
00805000 
00806000 
00807000 


208 LONG 


PAA AH AHH AHH HA HHA A BA TA TAA HH A A A TAA HA A Tt A AAS HHS 


NEXT SEG” 


00462000010 
00463000030 
0046%000031 
00468000412 
0046%000133 


00468000183 0 


00461000240 
00461000333 
0046000630 
00461000733 
00463001240 
00468001281 
00463001430 
00464001982 


“0046800220 


00464002533 
004630026320 


0046800293 


004630032!0 
00464003270 


0046!0035%2 


00463003834 
00463003932 
00463004281 
00463004532 
004680045%2 


OO46t0046% yp 


0046:005132 
0046005830 
00461006880 
0046?0075%2 
0046200840 


00468009132 ~~ 


00463009830 
004613010732 


00463011430 


00463011440 
0046%0115%2 
0046:0148:1,° 
00463012982 
00463013210 


004610137830 0 TT 


0046'0153%2 
00461015830 
00461015982 
00463016230 
00463016533 


00463016680 ~~ 


00463016923 
0046:0173%2 


00468018080 


0046:0191:2 
00463019323 
00463020582 
00464020582 
0046:0205%2 


i 


‘am 


i \ 


a 


t) 


10000 


CY 


Oe 


} 


O° - Ge <C 


) 


© 


PROCEDURE PRINTARRAYROWCPRTLOGeINXI3 VALUE PRTLOCsINX3 
INTEGER PRTLOC#INX3 
BEGIN | ’ 
INTEGER LOC»SIZE? 


BOOLEAN TOG»COMSAVE sOBLSAVE} 
LABEL AGAIN3 
STREAM PROCEDURE FIXLINECLINE® INX)3 VALUE INX3 
BEGIN LOCAL AsB3 
STteLINEsacS{s=aS14+8)3 
32CIF Sca" "* THEN JUMP OUT ELSE SIs=S141)3 
At=SIs PNIssA$ OSteLIT"e"s ASD? 
SrtsLOc INX} OSt84 DeC3 BteDI3 
Orisa? OSts3 FILL DyptsB3 
NSta3LyTh,* 3 
END FIXLINE3 
IF TOG?sBOOLEANCINX,£1%1)) THEN 
DISpPLAYCPRILOC, TRUE) 
INX:RABSCINX)3 
COMSAVE %=COMMON} 
COMMON? =FALSE?3 
DBLSAVE:2 =DOURBLESPACE3 
DOURLESPACE!: TRUE} 
IF PRTLOC GEQ 129 AND PRTLOG LEG PRTMAX THEN 
AGAINS 
IF PDATADESCCPRTLOC»LOC) THEN 
IF ¢SrZeseb0C,78210]) NEQ@ O THEN 
IF TOG THEN PRINTCLOC#sLOc,cFeMINCMAXCORSLOC4+S1ZE)) ELSE 
BEGIN 
DISPLAYIT¢CPRILOC s+ TRUE ePRILOCi=LOCeCF+INX)3 
FIXLINECLINEs INX)3 
WRITECPELDBLIJ915*LINEL*])3 
TOGI=TRUE} 
GO AGAINS 
END: 
COMMON? SCOMSAVES 
DOURLESPACES#DBLSAVE3 
FNn PRINTARRAYROWS 


DEFINE PRYNTARRAYCPRINTARRAY1 = 
PRINTARRAYROWCPRINTARRAY4 9 *1) 43 

DEFINE PASPRINTARRAY#sPAROWSPRINTARRAYROW#S 
COMMENT: THE FOLLOWING PROCEDURE IS INTENDED To BE MODIFIED To SUIT 
INDIVIDUAL USER DEBUGGING REQUIREMENTS, IT ALLOWS AN ARRAYs 
EITHER 4 OR 2 DIMENSTONALe TO Be DISPLAYED WITH A MINIMUM OF EFFORT, 
IN GENERAL» A 3 CARD PATCH IS NECESSARY TO THE ANALYZER? ONE CARD TO 
DEFINE AN FLEMENT tN "PRTS", SEQUENCE #00127000,ANOTHER TO MAKE AN ENTRY 
IN "FILLYNFOtsSEQUENCE #00765000s AND A THIRD TO CALL BELOW ON 
"PRINTARRAY"COR "PA") FoR 1 DIMENSIONAL ARRAYS OR ON 
"PRINTARRAYROW"COR "PAROW") FOR 2 DIMENSIONAL ARRAYS, 
NOTE THaT THE PROCEDURE "PRINTSELECTEDARRAYS" IS CALLED ONLY WHEN 
COMMON=163 
PROCEDURE PRINTSELECTEDARRAYS3 
BEGIN 

INTEGER I3 


IF nUMPTABLES THEN 


00807100 
00807110 
00807120 
00807130 

START OF SEGMENT 
00807140 
00807450 
00807160 
00807170 
00807180 
00807190 
00807200 
00807210 
00807230 
00807240 
00807250 
00807260 
00807270 
00807275 
00807280 
00807290 
00807295 
00807300 
00807310 
00807320 
00807330 
00807340" 
00807350 
00807360 
00807370 
00807380 
00807390 

- 00807400° 
00807410 
00807420 
00807430 
00807435 
00807440 

47 18°" 44 LONG 
00807450 
00807460 
00807470 
00807480 
00807482 
00807484 
00807486 
00807488 
00807490 
00807492 
00807494 
00807496 
00807498 
00807500 
00807510 
00807515 


Oe ee 


START OF SEGMENT kK Kx 


00807520 T 


AAA HAHAHAHA 


00105021430 
00108021480 
0010%021430 
00102021480 


OR OR ACO 47 


0047800000 
0047200000 
0047#000030 
00474000080 
004748000030 
00478000182 
0047:0003%2 
00473000430 
004730005%t2 
00471000533 
00474000684 
0047#000634 


004700080 


00473004020 
00471001112 
00471001183 
00473001291 
004740043%2 


~ OOA7#004 440 


0047:0015%3 
00473001782 


‘OO47#004810 ~ 


00474002020 
00478002881 


00478000982 ~ 


00477003183 
00472003383 


00478003783) 


00473003831 
00471003982 
004730039%2 
00472003983 
0047:004081 


NEXT SEG 10°” 


00102024480 
0010%02143%0 
00108024490 
00108021480 
00103021420 


00103024480 © 


00102024430 
00101024440 
0010'0244%0 
001080214450 
00108021480 


00108021480 —7 


001030214380 
00105021480 


001030214807 


0010802140 
0048300000 


46 


C) O O SS C) 


{ } 


on; 


Solis ase oS 


©) 


0 0 © 


C 


} 


Oo, Wr 400 Wa (Oy 1G 


ye 3 


BEGIN 
WRITECPEPAGEI)} 
IF nFX THEN Pacruad3 
PACMEMASK)3 
PACQTIMES)3 
PACSTATTON)$ 
a TisO0 STEP 4 UNTIL 145 00 PAROWCSTATION,S 13 
ND3 
DUMPCFESSPOOL} 
FND PRINTSELECTEDARRAYS3 


BOOLEAN BADCOMMENTS 
FORMAT COMNTPAR(me=PARITY ERROR OCCURRED IN COMMENTS BLOCK,,,')3 


PROCEDURE LOAD; 
BEGIN 
LABEL EoT; 


LABEL EF»sPR»IGPARS 
LABEL FLAG»sPAR*BADTMe I GNOREPAR3 & 
FORMAT BADEOFC™@"rINVALID EOF AFTER BLOCK # "eI2)e 


PRIFILEC"PRT FILE USED IS "sAtaAbe"/"e Ale A6eXB) 
PARERR (""™"r1RRECOVERABLE PARITY IN BLOCK # ',]2), 
FLAGERR¢"=""FLAGg BIT IN WORD ZERO OF BLOCK # ",y2)3 


ARRAY Ar03532)3 
STREAM PROCEDURE MOVERCS#D)3 
BEGIN 

SyisSs Dlteps 

16¢(NSi=32 WDS); 
END MOVERS 
STREAM PROCEDURE GETCOMMONC(CCOMMT?®N)} 
BEGIN LOCAL Xs¥3 LABEL XIT*#HITsGETNUMS 
DTtaNs NSt=8LyT"+0000004"3 SEstaCOMMTS 
Te20crF Sca"c™ THEN BEGIN Syf=Sy44? 

IF SCe"o" THEN BEGIN SytsSJ]ay3 
IF SCatm" THEN JUMP OUT 2° To HIT ELSE SIssSI¥]4 

END ELSE STPt=SJ+1 END ELSE Sit=St41))3 
Go XIT3 
HITSisCIF Sce"=" THEN JUMP OUT TO GETNUM ELSE SIt=SI+1)3 GO XIT; 
GETNUMSSTeaSle+13 
DIssLOc X3 
10CIF Sc=" " THEN SIiseSi+1 ELSE JUMP OUT)3 
5CIF Sc GEQ "O" THEN TF SC LEQ "9" THEN 
BEGIN TALLY#=TALLY#43 DSI=CHR END ELSE JUMP OUT ELSE JUMP OUT); 
Yr=TALLy3 
Srti=sLO0c xX} 
OpPt=Ni 
DStsY OCT3 
XIT? END GETCOMMONS 
INTEGER 13 
ALPHA NieNas 
COMNT f®BADCOMMENTS=FALSES 
IF REROAD THEN 
FOR [#50 STEP 1 UNTIL 63 DO UNLOCKECMCALO],ROWe*I)8 


48 1S 


00807530 
00807540 
00807550 
00807560 
00807570 
00807575 
00807580 
00807890 
00807899 
00807900 


AAHH AHA 


21 LONG» 


00808000 
00809000 


i 
T 


0048:0000?1 
00481000132 


00488000532 


00484000830 
00481000933 
00485004182 
00483001284 
00482004713 
0046:004733> 
00483001830 


NEXT SEG 10 
00408024430 7 TTT 


00103021430 


START OF SEGMENT #2 8A Ke 49 


49 1S 


START OF SEGMENT 


START OF SEGMENT 


31 1S 


11 LONG» NEXT SEG Po." 
00810000 T 00101021430 
00811000 T 00104021480 
00812005 T 00108024430 

OK kK KK KOK 50 
00812010 T 005030000!0 | 
00813000 T 0050:0000!0 
00814000 T 0050:000030 

WOR RR OR Ok 51 
00814100 T 0054:0000:0 | 
00815000 T 0051:!0000:0 
00816000 T 00512000030 

41 LONGs NEXT SEG 50. 
00817000 T 00501000080 
00818000 T 00504000133 
00819000 T 00503000133 
00820000 T 0050000332 
00821000 T 0050!000333 
00822000 T 0050:0004:0 
00822100 T 00501000431 
00822110 T 00508000431 
00822120 T 0050000532 
00822130 T 00503000684 
00822140 T 00508000824 
00822150 T 0050000983 — 
00822155 T 00501001132 
00822160 T 0050100132 
00822170 T 005080013:2 
00822175 T 00503001630 
00822180 T 0050:0017382 

~ 00822190 T 0050!0017:3- 
00822200 T 0050:0020:0 
00822210 T 00508002133 
00822220 T 00503002532 
00822230 T 005080025%2 
00822240 T 00501002513 
00822250 T 0050!0025337 °° 
00822260 T 0050!0026t0 
00823000 T 00508002732 
00823100 T O0050:0027:2° ~~ 
00824000 T 0050:002732 
00824100 T 0050:002932 

T 


00824110 


005040029%3°>°~ 


| 


cy 


iy 


O 


WO D> ©. “Oe: oD sOe We Or oO 


0 


tre MULTY THEN 
READ REVERSECMDUMP,20,COMMTE*])EBADTMSIGPAR]3 
IF FALSE THEN IGPARSBADCOMMENT#STRUES 


FOR yt=0 STEP 4 UNTIL 63 Do 


BEGIN 
IF MULTI THEN READ REVERSECMDUMP®533*8AL*])CBADTMSPAR] ELSE 
READCMDUMP*?533eAL%I])CBADTMIPARI3% 
IF FLGBITCA) THEN Go FLAG ELSE 
IF MODONCALOJ e£ 33837] 3=NOT BOOLEANCALO],£111]) THEN 
BEGIN 

MOVERCALLI eME Alo] eROWe01)3 
LOCKCMEALO] ROWs*I); 

END ELSE IF ACO],f3:5)=0 THEN Jss]473 3% 
COMMENT ONE BLOCK IS WRITTEN PER ABSENT MOD3 

END} 

TOMFID$sMDUMP,MFID3 

TOF IDS=MDUMP,FID3 

FILETYPESSIF MDUMP,TYPEs2 THEN "TAPE" FLSE "DISK!3 

IF NOT MULTI THEN 

IF FILETYPES"TAPE” AND TOMFIO NEQ@ O THEN 

IF TOF Ibe£302183=1 THEN ELSE MULTItsTRUES 

1F REPEATING THEN TF TOFID«.£30818]=1 THEN CLOSE CMDUMP) 

ELSE CLOSECMDUMPs*) ELSE 

IF CAUXTYPE#eAf0),¢3951)=0 THEN 

IF FILETYPEs*TAPE® THEN 

READCMDUMPs20eCOMMTC¥JICEOTS IGNOREPAR] ELSE &% DISK 

MOVECAL513]eCoMMT#20)3 

IF FALSE THEN IGNOREPAR!: BADCOMMENT©*TRUE3 


COMNT t= TRUES 
GETCOMMONCCOMMT#N1)3 


IF NY GEQ@ O THEN COMMONS &BOOLEANCNI 9D: N1is=03 
IF MULTI THEN NOMOS*TRUF ELSE 
RE ANCMNUMPENOJDCEOTSPaAR]3 
If FALSP THEN 
BEGIN 
EOT! CLOSE¢MDUMP)3 
NOMOtsTRUES 
ENDS 
IF COMMON OR RELOAD THEN 
ELSE 
BEGIN 
IF PRT32 THEN READARRAY(30*SEGZERO[D #120) ELSE 
SPACEC(DISKe1)3 
RE ADARRAYCNAMESIZE*NAMEL *¥] ePRTBASE 93 
READARRAYCNAMSSIZE*#NAMSE*I,0)3 
READARRAYCINAMESIZE* INAMEL*)20)8 
RFADARRAYCINAMSSIZEr tNAMSL*)]20)3 
CLOSECOYSK)3 : 
Not=D7SkK,MFPID) N2teprSK.FID? 
WRITECPRINAMELC*Je@PRIFILE ONL. COPO] eNisN2,L6tOJ»N2)3 
END$ 
IF RELOAD THEN ELSE 
BEGIN 
MAXMOD#e2#73 & 
WHILE NOT MODONEMAXMOD] DO MAXMODSSMAXMOD"13 
MAXCORIF4096xXCMAXMOD41 W135 & 


IF -OMMON THEN ELSE 


00824200 
00824210 
00824220 
00825000 
00826000 
008296990 
00827000 
00828000 
00829000 
00830000 
00832000 
00832100 
00833000 
00833010 
00834000 
00834050 
00834060 
00834070 
00834075 
00834080 
00834085 
00834095 
00834097 
00834400 
00834200 
00835000 
00835100 
00836000 
00837000 
00837050 
00837055 
00837095 
00837100 
00837200 
00837300 


00838000 © 


00838010 
00838100 
00839000 
00840000 
00841000 
00843000 
00844000 
00845000 
00846000 
00847000 
00848000 
00849000 
008494300 
00849200 


~ 00850000 


00850100 
00850200 


00851000 


00852000 
00853000 
00854000 


AA AHH AHA HHA AHA HBT AHH A ATH HAI A AI CAH A A A At A A At A HY 


0050300361 
00503003634 


00501004333 


0050%0045%3 


0050%0047t2 _ 
OO5080047t2) 


0050?005430 
00508006132 


0050:0062I4 — 


0050006630 
00503006631 
0050:006933 
00502007382 
0050:007631 


0050#0076%1 © 


00508007982 
00503008231 


00507008611 ™ 


0050009230 
00503009231 


00507010431 
00502010684 


00508044183. 


0050041480 
005030414583 


00508012230 


00503012533 
00508012783 


00501012681 


00503013010 
0050:0133%2 
00508013484 
005015014182 
00508014142 


005030141737 


005010144323 
005080, aaty 
005020144314 
005010445%2 
00508014583 


00503014610" ~ 


005010148414 
0050015231 
00503015420 
00504015610 
005030157383 
00503015983 
005010161%2 
00501016733 
0050%0185%2 
00507018532 
005030186:0 


005030186:1 


00503018782 
00502019132 
0050:0193:2 


00508009583 00 


O 


BEGIN 
PRTMAX?=PRTBASE+NAMESIZE@13 
INTMAXSsINAMESIZE"43 
FOR ItsPRTBASE STEP 1 UNTIL PRTMAX DO NSNAMELII!4 
NSNAMECTIJ+PRTBASE3 
FOR [#80 STEP 1 UNTIL INTMAX DO ISNAMECIIJ#&= 
ISNAMEEL]+PRTBASE3 
FIXDEFINESS$. 
SETUPXNAMEANDXNAMS$ 
TF MYSTACKADR LSS 0 THEN % LETS USEF IT 
IF CONTROLDESC(7s1) THEN % CHECK FOR MSCW IN CELL 7 
IF 1,CFsO AND [8#1,FF GEQ O THEN &% ASSUME VALID 
MYSTACKADRIt=1+30%3 % MAY NEED MORE THAN 30 

ENDs 

END; 
IF FALSE THEN BEGIN 

BANTMEWRITECSPO*BADEOFe 1l)3 GO EOPROGS 

PAR? WRITECSPOrePARERR#I4+1)3 GO EOPROG3 

FLAG: WRITECSPOeFLAGERReI+1)3 GO EOPROG; END 

END LOADS 


PROCEDURE CHECKPRTFILESS 

SIGNALS USER IF McP/PRT FyLE *MIGHT* BE THE WRONG ONE 
BEGIN 

REAL LOgeTYPatt 


REAL MYTYPES 
LABEL BADsMAYBE3 
DEFINE CHECKFORLABELDESCRIPTOR@IF LOC LSS 0 THEN GO BAD ELSE 


IF DESCRIPTOR(LOC*I + TYP) AND TYP=MYTYPE THEN ELSE GO MAYBE#S 


DEFINE cHECKFORPROGRAMDESCRIPTORSCHECKFORLABELDESCRIPTORE43 
FORMAT RADPRTCt#="yOUR MCP/PRT FILE IS WRONG, ..%)¢ 


TNCOMPAT("=e=MCP/PRT FILE NOT COMPATIBLE WITH MCPS PRT JN MEMORY,,,")5 


DEFINE ERRMESSCERRMESS1)=BEGIN WRITECSPOPERRMESS) D3 

. WRITE CPEPAGE}*ERRMESS{) END#SS 
MYTYPE ss" 763 
IF CLOC:*NOTHINGTODO) NEQ@ o THEN 
CHECKFORLABELDESCRIPTORS 
IF (LOCS=STACKOVERFLOW) NEQ O THEN 
CHECKFORLARELDESCRIPTOR3 
IF CLOC:=RETURN) NeQ O THEN 
CHECKFORLARELDFSCRIPTORS 
MYTYPeee"75"3 
TF cLOctsprRECTORYBUILDERIs9 THEN LOCta™13 
CHECKFORPROGRAMDESCRIPTORS 
IF FALSe THEN MAYBES BEGIN ERRMESSCINCOMPAT)3 PRTICODE&=1 END? 
IF FALSE THEN BADSBEGIN ERRMESSCBADPRT)& PRICODEts2 END3 
END OF CHECKPRTFILE$3 


PROCEDURE DUMPMCPSPRTS3 
BEGIN 
FORMAT HDRCX422") C MCPS PRT" 


XADs Ve _— om - # ess / os 


Z2CMPRT"sXSe "CONTENTS A X16 ae "NAMES X2B)/) >» 


50 IS 


53 IS 


52 1S 


START OF SEGMENT 


START OF SEGMENT 


START OF SEGMENT 
START OF SEGMENT 


00103021480 


00855000 T 0050:0194:0 
00856000 T 0050!019680 
00857000 T 0050!019733 
00858000 T 0050#0499!2 ~~ 
00859000 T 00503020133 
00860000 T 0050:0207%2 
00861000 T 0050t0209t2 — 
00862000 T 0050:0214t0 
00863000 T 00503024431 
00863100 T 00508021532. 
00863110 T 00508024533 
00863120 T 0050:0247%2 
00863130 T 0050:0221!2 — 
00864000 T 00508022284 
00864100 T 0050:0222%4 
00865000 T 0050:0222!1 
00866000 T 0050!0223!3 
00867000 T 00502023333 
00868000 T 00508024533 
00869000 T 0050:025733 
262 LONGe NEXT SEG 10 
00870000 fT 00103021480 °° 
00871000 T 0010:021440 
00872000 T 00103024430 
00873000 T 00140:0244:0 
ok KOK KKK KOK 52 
00874000 T 0052%0000%0 
00875000 T 00528000080 ~ 
00876000 T 0052:0000!0 
00877000 T 0052:0000%0 
00878000 T 0052!0000:0 
00879000 T 0052:0000:0 
we kek ke OK ok 53 
00880000 T '0053!0000t0 ~~ 
22 LONGs NEXT SEG 52 
00881000 T 005280000!0 
00882000 T 00522000030 — 
00883000 T 0052!0000!0 
00884000 T 00522000081 
00885000 T 0052:0002:0 
00886000 T 00521000681 
00887000 T 00528000810 
00888000 T 0052:0012!1 
00889000 T 0052:0014t0 
00890000 Tt 00523001831 
00891000 T 0052!001933 
00892000 T 0052:0022%1 
00893000 T 00521002684 
00894000 T 00524003434 
00895000 T 0052%0042?1 
45 LONGs NEXT SEG 10 
00896000 T 
00897000 T 001080214410 
00898000 T 0010:0214%0 
RRO Od 
AK OK OK Kk 55 
00899000 T 0055:0000:0 
00900000 T 005530000!0 7 


C) 


cy 


{) Cc) 


DASHESC120¢%=") De 
FCX8s"MEMORY MODS# "5814)» 
PRTITEMC2CASe™ = ",0eX1.00X39))3 


INTEGER LOC#N3 
LABEL EXIT3 
IF DUMPCESSPOOLONLY THEN DONTDUMPRT#STRUES 
IF NOT COMMON THEN 
BEGIN 
CHECKPRIFILES 
1F NOT nONTDUMPRT THEN BEGIN mATIMES WRITECPEDBLI) END: 
PRrNTMCPOPTYONS} 
1F DONTDUMPRT THEN ELSE 
BEGIN 
WRITECPLOBLIeHDR)? 
FOR |.0CtsACTUALPRTBASE STEp 4 UNTIL PRTBASE DO 
BEGIN 
WRITECLINEC#]*PRTITEM*OCTALCLOC) sOCTALCHIHALFCLOC))» 
OCTALCLOHALFCLOC))*OCTALCNS=XSNAMELLOC] De 
OCTALCHIHALF ON) ) sOCTALCLOHALF(ND)93 
MOVE CXNAMSEXNAMELLOC) »cFJeLINELC4I ®XNAMELLOC],FFDS 
MOVECXNAMSEXNAMEENI CFI >LINECL 2] eXNAMECNI gFF)3 
WRITECPe15eLINEC*I)3 
1F DONTDUMPRT THEN GO EXyTI 
ENDS. 
WRITE CPsDASHES)$ 
FOR |,0C8=PRTBASE4+4 STEP 14 UNTIL PRTMAX DO 
BEGIN 
WRITE CLINEC¥*JePRTITEMsOCTALCLOC) eOCTALCHIHALFCLOC) )» 
OCTALCLOHALFCLOC))s0CTALCNSSNSNAMELLOC] De 
OCTALCHIHALF CN) ) eOCTALCLOHALF(N)))$ 
MOVECNAMSENAMELLOCI CFIJeLINEL SJ eNAMELLOCI]gFF)3 
MOVE CNAMSENAMECNISCFIsLINELCL2) aNAMECNI,FF QS 
WRITE CPetiSeLINEL*I)3 . 
1F DONTDUMPRT THEN GO EXT? 
END? 
EXIT 
NEXTPAGES 
END} 
END} 
WRITECPrDBLJsFeFOR NISO STEP 4 UNTIL 7 DO 
C1F MODONEN] THEN N ELSE 101); 
DATIME3 
IF DUMPcESSPOOLONLY THEN ELSE 
1F NOT e@OMMON THEN 
BEGIN | 
MCPENTRYES3 
GETPRTENTRIES} NEXTPAGE? 
END} ; 
PRTOK t= PDATADESCc(PRT»PRTO)3 
END OF pUMP OF MCPS PRT3 


PROCENURE CHECKMEMORYLINKS3 
BEGIN & 
BOOLEAN ZFEROK;3 REAL VO} & 


BOOLEAN MSTARTOKS REAL vMSTART? 3% 


%103" 


00901000 T 
00902000 T 
00903000 T 
55 1S 50 LONG» 
00904000 
00904100 
00904500 
00905000 
00906000 
00907000 
00908000 
00909000 
00910000 
00911000 
00912000 
00913000 
00914000 
00915000 
00946000 
00917000 
00918000 
00919000 
00920000 
00920,100 
00921000 
00922000 
00923000 
00924000 
00925000 
00926000 
00927000 
00928000 
00929000 
00930000 
00930100 
00931000 
00931400 
00932000 
00933000 
00934000 
00935000 
00936000 
00937000 
00937500 
00938000 
00939000 
00940000 
00941000 
00942000 
00942100 
- - 90943000 
54 18 141 LONG» 
00944000 T 
00945000 T 
00946000 T 


AQ HAHAHAHAHA HHH at HH A A HH A A AA A At 


00552000080 
0055#000030 
0055%000020 


NEXT SEG 54 


0054000030 
0054#0000%0 
0054:0000!0 
00543000332 


00543000313 ~ 


00543000450 
0054:000431 


0054:0040%, 


005420044%2 
0054001210 
005472001231 
00542001533 
00548001732 
0054:0017%2 
OOS4:002722 
00542003430 


0054!0043%2 © 


00543004783 
0054!0052%0 
0054005644 
005430056%0 
0054#0060t0 


00541006382 “°C TO 


0054006783 
00543006783 
00543007830 
00543008532 


00543009420 


00543009814 
00541010332 
00543040733 
005410109%2 
00544040933 
00544014020 


00548044410 7 


00543011420 
00543011480 
00548011982 — 
00543012830 
00543012821 


00544013080 © 


0054%20131%2 
00543013123 
00543013230 
00541013634 
00542013691 
00542013830 


NEXT SEG 10 


00105024420 
001030214:0 
0010#021430 


START OF SEGMENT 2k eK 56 


* 00947000 T 


00568000030 


ia) 


{) 


C) C) Oy C) 


- 


Sug eees . esha ten oe oy 
~ : 
} 


O 


= 


BOOLEAN NOWRAPAROUNDS$ 
REAL LINK«eVLINKs PREVL INKS 
INTEGER AVAILN*AVAILT,AVAILMS 
BOOLEAN PROCEDURE LINKOKCWORD)S & 
VALUE WORDS % 
REAL WORDS 4 
LINKOKt=WORD,C386]<STYPMAX AND & 
WORD pg £986] 5MIXMAX AND 
WORD,C152:3]=0; & 
FORMAT RANGFCX8e "PRIMARY LINKS FROM sA5e™" TO "sASe™ ARE OK"), 


FCORFCASe™ & Mp2 Oe XL) eXGe"CORE'*sXBe"FACTOR & "pF4,2e 
", MAX CORE = "sASe"CHe 15a) Me", USING Me ASa (tHe TS,MIM), 
BADCXB8sA6e* LINK AT tpASe* 1S NOT OK)» 
BADPRIMARYCX8e"PRIMARY LINK AT “eASe" 1S NOT OK)» 


AVLBADCXBs"AVAILABLE STORAGE TOTALS DO NOT CROSS CHECK"), 


AVLOXB "AVAILABLE LINKS ARE OKa TOTALING’ 
T4e"CDECIMAL) AREAS OF "sA5eC%e15Se 
") WORDS UP TO "saSe"C(%eF15e") WORDS EACH")? 


INTEGER NoTeM3 & 

DISPLAY ¢OsraALSE)3 

IF MSTART>O THEN DI SPLAYCMSTART# FALSE) 3 

1F MEND>O THEN DISPLAYCMENDsFALSE)3 

DrSPLAYCAVAILeFALSE)D3 

IF OPERANDCCOREsT) AND Te048317=0 THEN 

BEGIN | 

WRITECLINEL*J] eFCOREs OCTALCCORE) sOCTALCHIHALFCCORE))» 
OCTALCLOHALFECCORE))9T,l4214]/100- 
OCTALCONEST,CFx 64), CFI aN» 
OCTALCONS=T,FFx64),CF)0ND3 

WRITE CPLCDBLI] e15eLyNel*))3 


END ELSE 
DISPLAYCCORE sFALSE)3 
ZEROK t=0PERAND(0»V0) AND 
VO,ritp)ey AND 
VO.r03!153=0 AnD 


VOeFFROCMAXLNKS=MAXCOR*2) AND 

VOeCF GTR 1023 AND VOeCF LSS 4096 AND 

OPERANDCVOeCFeT) AND LINKOKCT) AND Ta FFFO} 
IF MSTART=0 THEN MSTARTOKS#FALSE ELSE 
MSTARTOKS=0PERANDCMSTART#® VMSTART) AND 

VMSTART,£1!35]=0 AND 2 

VMSTART GTR 1023 ANn VMSTART LSS 40963 

Tr LNKSOKt=MSTARTOK OR ZEROK THEN 

MrNLNK@sLINKts fF MSTARTOK AND ZEROK THEN MAXCVO,CFeVMSTART) 

ELSE JF MSTARTOK THEN VMSTART ELSE 

IF ZEROK THEN VO,CF ELSE O38 

AVALNKOK $sTRUES 

NisTiso} 

WHILE LNKSOK AND MAXLNK>PREVLINK DO 3% 

IF LNKSOKssCOPERAND( LINK» VLINK) AND 
LINKOK¢VLYNK) AND 3% 
VLINKeFFSPREVLINK AND % 

CIF LINKsSMAXLNK 
THEN VLINK.cFSO & 
ELSE VLINKsCF> LINK) THEN 


00947400 
00948000 
00949000 
00950000 
00951000 
00952000 
00953000 
00954000 
00955000 
00956000 


START OF SEGMENT 


00956100 
00956110 
00957000 
00958000 
00959000 
00960000 
00961000 
00962000 


99 LONG 


00963000 
00964000 
00965000 
00966000 
00967000 
00967100 
00967110 
00967120 
00967430 
00967140 
00967150 
00967160 


00967170 


00967180 
00968000 
00969000 
00970000 
00971000 


00972000 


00972400 
00972500 
00973000 
00974000 
00975000 
00976000 
00976100 
00976200 
00976300 
00978000 
009786100 
00979000 
00980000 
00981000 
00982000 
00983000 
00984000 
00985000 


errr rer s 
' 0057:0007%2 


AAA HAA TH HHH HAA HAH HH TH HHA HAA A HA se at tA tt ak a st 


00568000080 
0056#000030 


0056F0000t0 ~~ 


0056#000030 
0056#0000t0 


005680000I0 — 


00563000030 
005640001%2 
00563000281 
0056!000732 


00572000782 
0057:000732 
00573000782 
00573000732 
00578000782 


005780007#2 | 


0057*0007%2 


NEXT SEG 56 


0056:0007%2 
0056000732 
00562000982 © 
0056004280 
00561001532 
0056%?001631 
00564004933 
0056002030 
0056:003031 


0056:00368f 7 


00562004234 
00568005132 


00567005533 ~~ 


0056005533 
00561005733 
00568005684 ~ 
0056#0060%0 
00561006133 


005620064307 °° 7 


0056:80067%2 
0056:007133 


0056%:007480 —— © 


00563:0077%2 
005630076581 


~ 0056:0086112 


00563008231 
00563008582 
0056!0089t2 
005613009281 
005610093t2 


~ 00569009481 0 


00564009631 
00563009783 


00564009884" 


00564010080 
00562010081 
005640102:0 
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BEGIN 4% 


PREVLINK#S=LINKs & 

LINK#SVLINK, CFS & 

IF AVALNKOK THEN &% 

IF BOOLEANCVLINK,£1212) THEN & 

IF AVALNKOKS =MAXLNK®PREVLINK THEN & 

IF AVALNKOKs3*COPERANDCPREVLINK+1eVLINK) AND 4% 


VLINK,£1817]=0) THEN &% 


BEGIN & 


AVAITLNI=AVAILNG13 & 
AVAILTSSAVAILT+VLINK,FFS & 
AVAILMS=MAXCAVALLMeVLINK,FF)3 & 


END3 & 


ENDS &@ 


IF NOT ZEROK THEN WRITECPs,BADPRIMARY 20)5 
IF LNKSOK THEN WRITECPsRANGEs IF ZEROK THEN 0 ELSE OCTALCMINLNK)» 
OCTALCMAXLNK)) ELSE 


BEGIN 3 


IF SOMOKFisPREYLINK>MINLNK THEN 
BEGIN & 
WRITECPsRANGEstF ZEROK THEN O ELSE OCTALCMINLNK)» 


OCTALCPREVLINK) 25 


WRITECP»BADPRIMARY»OCTALCLINK) 233% 
END; & 

MINBADS=sLINK3 

PREVLINK#=03 &% 

LINKISMAXLNKS & 

WHILE OPERANDCLINK*® VLINK) AND 2@ 


LINKOKCVLINK) AND 

VLINKsCF=PREVLINK AND % 

LINK>VLINK,FF DO % 
BEGIN % 


PREVLINKEFLINKS & 
LINKt=sVLINK FFE & 


END3 4 

IF PREVLINK®O THEN MAXBADSSMAXCOR+1) ELSE % 

WRITE CPe RANGE eOCTALCMAXLNK) *OCTALCMAXBADS=PREVLINK))3 &% 
WRITECPeBADPRIMARY ® OCTALCLINK) 3% 

SOMOKB:=PREVLINK>0O3 


END} 3 

NOWRAPAROUNDS®TRUE$ 

IF AVALNKOKs=COPERANDCAVAILePREVLINK) ANp 
PREVLINK=MAXLNK 41 AND % 
OPERANDCPREVLINKeVi NK) AND & 
VLINK, 117750 AND &% 
VLINK FF232767) THEN 3% 

BEGIN &% 


WHILE AVALNKOK AND % 


CIF 


NOWRAPAROUND AND 

CIF LNKSOK THEN AVAILN GTR N ELSE TRUE) AND 

CIF UNKSOK THEN AVAILT GTR T ELSE TRUE) AND 
LNKSOK THEN AVAILM GEQ@ M ELSE TRUE) DO 


IF NOWRAPAROUND s=¢MAXCOR GTR LINKS=VLINK,CF 


AND LINK GTR 0) THEN 


IF AVALNKOKSSCOPERANDCLINK*2aVLINK) AND &% 


LINKOKCVLINK) AND % 
BOOLEANCVLINK,£141]) AND &% 


00986000 
00987000 
00988000 
00989000 
00990000 


00991000 


00992000 
00993000 


00994000 


00995000 
00996000 
00997000 
00998000 
00999000 
00999100 
01000000 
01001000 
01002000 
01003000 
01004000 
01005000 
01006000 
01007000 
01008000 
01009000 
01010000 
01011000 
01012000 
01013000 
01014000 
01015000 
01016000 
01017000 
01018000 
01019000 
01020000 
01021000 
01022000 
01023000 
01024000 
01025000 
01026000 
01027000 
01028000 
01029000 
01030000 
01034000 
01032000 
01032100 
01033000 
01034000 
01035000 
01036000 
01036100 
01037000 
01038000 
01039000 


AA HAH HAMM HAH HAHA HH HH AH THA A HA AA A HH A A A AH 


005640105%2 
00565040583 


00563010634 — 


00564010733 
0056010880 


00568010982 


0056:0111382 
00562011382 
0056:0115t2 
00568011533 
00564011631 
005640118%4 
00563012230 
00564012230 


00563012430" 


00564013332 
0056014183 


00563014722 


00563014733 
0056:0149%2 


0056401493837 


005630145733 
0056'0163t2 


00561017382 — 


005650173%2 
00565017480 


00568017441 © 


00568017533 
0056:0177%2 


00564017830 ~ 


0056:017933 
00564018133 
0056:0181%3 
00564016210 
00563018333 


00564018430 ~ 


005640186814 
00563019982 
00564020932 
00563021031 
00563021081 
00561024112 
0056#021231 
005630214410 
00568024582 
0056%001684 
0056t0018%4 


00563024982 | 


005670220%0 
00564022031 
00561022332 
0056:0225!3 
00561022831 


00561022922 


00564023230 
0056:0234:0 
0056%0235%2 


() 


C) 


C) 


Ce Ys O © 


y 
4 


fe 


0) 


©) 


OPERANDCLINK4,eVLINK) AND & 


VLINKSPREVLINK AND 3% 

OPERANDCLINKse VLINK) AND % 

VLINK,€1917)720 AND &% 

VLINK «CFFLINK) THEN & 
BEGIN & 

NeaNetd3 


Te=THeVLINK FFs &% 

MS=MAX(MoVLINKe FFI? & 

PREVLINKSsL INK? & 
ENDS &% 


IF NOT AVALNKOK THEN WRITECPsBADs*AVALBL",OCTALCLINK)) ELSE 


IF LNKSOK AND 
NOTCAVALNKOK:s 
LNKSOK AND 
AVAILNFN AND & 
AVAILT=T AND & 
AVAILM=M AND & 


VLINK,CF=MAXLNK+1) THEN WRITECP*AVLBAD) ELSE &% 


WRITECPsAVLe Ns OCTAL CT e Ts OCTALCM)9M)3 
TABLESLOCtarF LNKSOK AND OPERAND(MAXLNKsT) 
THEN TeFF ELSE “15 
END ELSE WRITECP*®BADs tAVALBL™s OCTALCMAXLNK#19)3 
WRITECPLDBLJ)3 &% 
END: % 


ARRAY MIXSTK(L0243)3 
PROCEDURE GETSTACKSFROMTHEBFD3 
BEGYN 

INTEGER 13 


INTEGER MYX3 
INTEGER M3 BOOLEAN B3 
FORMAT DUPBEDCX8e"DUPLICATE BED ENTRY FOR MIXetto]2, 


" CHECK BED AT ADDRESS = tsAss 
" (THIS ENTRY IGNORED)")3 


REAL VeTYP3 
IF OPERANDCJOBNUM*VJOBNUM) THEN 
IF VJOBNUM,(138]=0 AND 
VJOBNUM,(4731317=0 AND 
PNATADESCCBED*VBED) AND 
VJOBNUMSVBED.0€8410) THEN 
BEGIN 
VBEDt=VBED.CF3 
FOR {320 STEP 2 UNTIL VJOBNUM DO 
IF DESCRIPTORCVBED+yeVeTYP) THEN 
IF Bt=CcMIX?=V, C682 ]&TYpl434#4523)) GTR O 
AND (Mr=MIXSTKEMIX]) NEQ@ 0) THEN 
WRITECPeDUPBEDsMIX*®OCTALCVBEDtI )) 
ELSE 
BEGIN 
BEDSTKt=MAXSTKS=MAXSTK4]13 
MIXSTKEMIX]3=BENSTK3 
STAXCBEDSTK] is 
V,FF& 


56 IS 


01040000 


START OF SEGMENT 


START OF SEGMENT 


59 IS 


T 00563023620 
01041000 T 00564023733 
01042000 T 0056:023831 
01043000 T 00563024030 
01044000 T 0056:024133 
01045000 T 00563024333 
01046000 T 00563024439 
01047000 FT 0056:024532 
01048000 T 
- 01049000 T 00563025034 
01050000 JT 0056%025432 
01051000 T 00563025332 
01051100 T 00563026610 
01052000 T 00563026712 
01052100 T 0056!0267:2 
01053000 T 0056:026712 
01054000 T 0056:0268:0 
01055000 T 0056:026932 © 
01056000 T 005640270:0 
01057000 T 00561027634 
01058000 fT 0056:029332 
01059000 T 0056#0294:0 
01060000 T 00564029733 
01061000 T 0056#034182° 
01062000 T 0056%03;5%2 
321 LONGe NEXT SEG 10 
01063000 T 0010%0214t0 
01064000 T 00108021631 
01065000 T 0010%0216t4 
01066000 T 
$k 
01067000 T 00584#0000t0 
01068000 T 0058000030 
01069000 T 0058:0000:0 
FO ROR OOK 
01070000 T 0059%#0000t0 ~~ 
01071000 T 00594000030 
20 LONGs NEXT SEG 58 
01072000 T 0058:0000!0 
01073000 T 00583000030 
01074000 T 0058:000132 
01075000 T (0058:0003%2 
01076000 T 00588000484 
01077000 T 00583000630 
01078000 T 00584000733 
01079000 T 0058!0006:0 
01080000 T 00581000982 
01081000 T 0058#00;0:0° © 
01082000 T 005840011433 
010683000 T 00583001441 
° 01084000 T 005820014732 
01085000 T 00583002434 
01086000 T 0058:0028:0 
01087000 T 0058:0028%4 — 
01088000 T 0058:00303%;4 
01089000 T 00583003133 
01090000 T 0058%0032t0 — 


00563024712 Boose, ts oa nh geen 


001030216834 “~~ 
56 


59 


C) 
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O 
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166'38:4078 01097000 T 0058:0033!2 
CREALCMIX>O))C784791)3 01092000 T 0058#0034%0 
END$ 01093000 T 0058!0036:0° 777 77> 
END} 01094000 T 0058!0038!0 
IF g THEN WRITECPEDBLI); 01095000 T 005840038!0 
END GETSTACKSFROMTHEBED3 01096000 T 0058:0043!2 o 
58 1S 47 LONGe NEXT SEG 10 
PROCEDURE NUMPMCPSAVECODECFROMsT0093 VALUE FROMe TOO? REAL FROM,TOO$3 01096500 c 0010:021631 
FORWARD? ¥106" 01096600 ¢ 0010!021684 °° UT 
PROCEDURE DUMPMEMORYANDNOTESTACKSCFROM,T00)3 01097000 T 00103024631 
VALUE FROM, T0O3 01098000 T 001408024684 
INTEGER FROM,TOO3 01099000 T 001080246384 =e 
BEGIN 01100000 T 00103021631 
BOOLEAN BEDDEDS3 01101000 T 00108021611 
START OF SEGMENT *%&®# Re KKK 60 — 
DEFINE TRLINKTYPER; 01101100 T 0060:0000:0 
REAL L3 01102000 T 0060!0000:0 
FORMAT ITEMCX2eA3e™ =%2(X4eA5))3 01103000 T 00608000030 
START OF SEGMENT #4 # RHR KX 64 
61 15S 10 LONG» NEXT SEG 60 — 
REAL ReADReQeLL3 BOOLEAN INTROT3 ~ “ 01104000 T 00608000030 7 
REAL X3 %103= 01105000 P 0060#0000:0 
REAL ISTACKVSBOOLEAN YSTACKOKsIRSTACK3 01106000 T 0060:0000:0 
BOOLEAN MCPSAVE rMXNOTOS 01107100 T 0060#0000:0 ss 
DEFINE MXO&NOT MXNOTO#S 01107200 T 0060:0000!0 
REAL DCQPTSTACKsDCQPTSTACKV} 01108000 T 00608000030 
BOOLEAN DCSTACKeDCHIT; ' 01109000 T 00608000030 ~~ 
DEFINE DCSDCOQPTSTACK#,DCVe DCOPTSTACKV Es 01110000 T 0060!0000:0 
INTEGER NaSTK3 01112000 T 0060100000 
REAL MX} ‘ 01113000 T 006030000:0 = 
DEFINE OCTALWORD = 8 OCTADES DI t= DI + 15 8 OCTADES %1038 01115100 c 006040000:0 
D1 ts DI + 2#3 %103" 011495200 C 0060000030 
STREAM PROCEDURE BUILDHEADERCLINE»FROMsWHICHs TYPE» NAME eMIXe 2103 011195300 C 0060#0000!0 ~" ™ 
SIZEaMOMeLINKie*L INK@eLINK3)3 %1038 01115400 C 0060400000 
VALUE FROM*WHICHO TYPE * MI XeSIZEsMOMsLINKLe LINK2eLINK33 %103" 011145500 C 0060!0000!0 
BEGIN 2103" 01115600 C 0060:000030 
LOCAL SW3 % = 4 IF BUILDING AVAIL AREA HEADER, ¥103* 01115700 C 006010000:0 
LABEL SAVEAREA» OLAY* AVAIL® MCPCONEs INTCODE3 2103 01115800 Cc 0060:0000:0 
LABEL MOVNAM*# MOVTYPe MOVSIZ$3 £103" 01115850 c 0060:0000!0 ~~~ 
DI :® LINES 2103" 01115900 c 0060!0000!0 
17 (pS 38 8 Lir ® "y3 %103" 01116000 P 0060:000030 
DI #3 LINES , “¥1038 01116100 ¢ 00603000280 — 
Sy t= LOG FROM; Sy t= Sy + 53 SKIP 3 SBS 5 OCTADE} %103" 01116200 ¢ 00604000210 
DS te LIT * "3 71038 01116300 Cc 0060!0005!83 
Cl t= Cy] + WHICH %103= 01116400 C 0060%0006t0 
GO TO OLAY? % CASF 0 %103" 01116500 C 00603000631 
Go To SAVEAREA$ &% CASE 14 %1038 01116600 C 0060:0007%2 
Go To AVAILS & CASE 2 %103" 01116700 C  0060!0007!2 7 
Go To MCPCODE; % CASE 3 %103° 01116800 Cc 0060:0007!3 
Go To INTCODEs % CASE 4 %1032 01116900 C 00603000733 
SAVEAREAS %103" 01117000 P 0060!0008:07°> 7 77 
DS = 4 LIT "SaVE"?3 2103" 01117100 C 0060:!0008:0 
GO TO MOVTYP3 %103" 01117200 c 00603000831 
OLAYS %103" 01117300 c 0060:0009%2 — on, 
DS $* 4 LIT "OLAY'3 %103= 01117400 c 006080009%2 
MOVTYP? %103" 01117500 C 00603000933 
DS := 12 LIT " AREA, TYPES"? %103" 01117600 C 006030010!0 


o) C2) M 
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Seren. 


O- 6 
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Ss 


cu Le O beer 
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O 


C) 


SI te LOC TYPES 

NS += 2 DEC 

DS 32 LIT "C"3 

SJ] t= NAME$ 

16 ¢IF SC = ARROW THEN JUMP OUT ELSE DS t= CHR)3 
DS t= 7 LIT "Jo MyX="§ 

Sy %= LOc MyX3 

DS t= 2 DEC} 

GO TO MOVS]Zi 


AVAILS 
DS t= 44 LIT "AVATLABLE AREA"; 
TALLY = 43 


SW t= TALLY? 
GO TO MOVSIZ:3 
MCPCODE? 
DS = 8 LIT "MCP CODE"? 
GO TO MOVNAMS 
INTCODE? 
DS $= 9 LIT "INTRINSIC"S 
MOVNAM? 
pS := 3 LIT " = 3; 
S] t= NAME$ 
TYPE ¢ 8 ¢ IF SC = * ™ THEN JUMP OUT 2 TO MOVS1Z 
ELSE DS t= CHR ) )3 
MOVSIZ3 
DS := 7 LIT "es SIZES"S 
SI 3= Loc SIZE} 
S$] t= SI + 53 
SKIP 3 SB} 
5 OcTAnDE?} 
DS t= LIT "C3 
S} t= LOC S1ZE3 
DS t= 5 DECI 
DS t= LIT *)"3 
MOM (DS t= 9 LIT "se MOM AT "3 
S] ts LOC LINK??3 
S$] 3= SI + 5; 
SKIP 3 SB3 
5 OCTADE); 
0S += 9 LIT " LINKS: "3 
S$] 35 LOC LINK1; 
OCTALWORD} 
S1 18 LOC LINK23 
OCTALWORD3 
Sw cSI := LOC LINK33 
OCTALWORD)3 
END OF BUILDHEADER} 
NOTPRINTCALLIaTRUE} ; 
IF DATACOM THEN 
BEGIN 
NesTacks40C GTR 129 AND OPERANDC(DCeDCV) 
AND Dev NEG O AND DcVv,£1#32)=0 
ANn Cncvi#bcV,.cF) GTR 1923 AND 
OPFRAND¢CDCV,R) AND R=O AND 
OPERANDcOCV#inQ) AND Q,£9%6]20 AND 
(9,£3%'637=0 OR Q,(73%6)512) AND Q,C2P%1) 813 
END OF LOCATING DCQPTSTACK AFTER MANY CHECKS3 


%103" 
%103" 
%103" 
%1038 
%103° 
%103= 
%¥103" 
¥103" 
%103- 
%¥1038 
%1038 
%103= 
%103" 
%103" 
%103" 
%103" 
2103" 
%103" 
%103" 
%103" 


- 4103" 


4103" 
%103= 
%1038 
%103= 
¥103" 
¥103" 
¥103" 
%103" 
¥103" 
¥1038 
%103- 
%103 
¥103= 
%103* 
%103% 
%103" 
%103" 
%103° 
¥103" 
4103" 
%103= 
%103" 
%103" 
%103" 
%103" 
%1038 


014117700 
01117800 
01117900 
01118000 
01118100 
01118200 
01118300 
01116400 
01118500 
011418600 
01118700 
01118800 
01118900 
01119000 
01119100 
01119200 
01119300 
01119400 
01119500 
01119600 
01119700 
011149800 
01119900 
0411149950 
01120000 
01120100 
01120200 
01120300 
01120400 
01120500 
01120600 
01120700 
01120800 
01420850 
01120900 


01120950 


01121000 
01121050 
01121100 
01121150 
01121300 
01121400 
01121500 
01121600 


01121700 


01121800 
01121900 


01122100 


01123000 
01124000 
01125000 
01126000 
01127000 


01128000" 


01129000 
01130000 
01131000 


ABFA AHAARARAANINNDDANDADANANDDGTAAANDAAGANMANTNAQANABDARDADTAAAONAAANANDWANADA 


00603001183 
00601001280 


006080012:0 —~  ” 


00608001231 
0060:0013%2 


~§ 00608001582 — 


00604001680 
00608001631 


0060800468, ~~ 


0060t0047%2 
00608004742 


00608001982 = 


0060#0019%2 
00604001983 


00603001923 _ 


00604002030 
00603002132 


0060300213. 


0060002230 
00603002353 


0060002430 


00603002431 
006040025%2 


006010027:3 © 


00603002831 
006030029%2 


00604003030 


0060003031 
00604003031 


006018003132 ~~ 


00601003383 
00608003480 


(006010034847 


00601003434 
006010035%2 


006038003733 


00604003880 
00601003830 
00601003831 
006080041383 
00601004382 
006080043382 
006030049t2 
00603004983 


"00608005533 


0060005621 
0060:0063%2 


0060:0063%2 


006030064314 
00602006583 


0060#006630— 


0060!0067%2 
00603006933 


00601007281 OT 


0060%0074%4 
00602007880 
0060'0083%2 


Fame 


(CY 


Cs 


C7 


(y 


CO 


C) 


© 


O a 


CO. oO Gi © © Or. 6 


ae ae 


Sep eS oe es vee 


) 


rN 


a 


ze 


O) 


O 


Or Oe @ 


ISTACKOKSSPDATADESCCISTACKe JSTACKV) AND - 
ISTACKVs£8:10)3 GTR O AND 
CISTACKVESISTACKV,CF) GTR O3 
INTRIEPNATADESCCINTRNSC»ADR) AND ADRgFFROS 
ADR t= ADR,CF3 %103" 
WHILE FROM«TOO pO 
BEGIN 
IRSTACKISFALSE? 
NCHITIBFALSES 
NtscLe=MCFROM,ROWsFROM,COLI) CFS 
IF T85h,.03%6] GTR TYPMAX THEN L,E3t6]#=Tt=TYPMAX+43% BAD TYP 
MXNOTO?=(MX95L,£9361]) NEQ OF 


IF BCL,f1817)2 THEN % AVAILABLE AREA 3103" 
IF NOT NODUMP THEN 2103" 
BEGIN $103 

QT 83 OPFRANDCFROM+2eQ)3 & GET LINK 3, 4103" 


BUILDHEANDERCLINEC*] sFROMs220eXeOelF OPERANDCFROM419X) 


AND NOT BCX,£1217)) THEN X,FF ELSr 0623103 


0, Li» Xs Q); %103" 

WRITECPLOBLI ed 7oLINEL¥I)$ %103" 
AVALNK fs TRUBS %103= 

IF DUMPAVAIL OR NEEDCHECKAVAILNKS THEN %103 
PRINTCFROM+3¢N)3 103 

AVALNK t= FALSE3 %103" 

END %103" 
ELSE % NO DUMP %103" 
FLSe ® IN USE AREA, %103* 


BEGIN 

QTI=OPFRANDCFROM4+12Q)3 

MCPSAVE?#QT AND @ NE@ O AND L,f2813]=4096 AND Q,FF NE O 
AND 9,CF GE@ 129 AND Q,CF LEQ PRTMAXs 

DCHrTiec¢DCV=1 =FROMS 

IRSTACKi= CCONTROLDESCC(FROM+2eR) AND 

R,FFsISTACKV4+1) OR 
CCONTROLDESCCFROM+3¢R2 AND 
ReFFSISTACKV41)3 


IF NOT NODUMP THEN BEGIN %103= 

IF MXNOTO THEN % CHECK FOR STACK OR SEGMENT DICT, %1038 

IF T = 2 THEN % MIGHT Be STACK#PRT, . %¥1038 

IF OPERANDCFROM+2»5X) AND X="BBBBBBBB*® AND %103* 

CCCONTROLDESCOCFROM43sX) AND X,FF = 0) OR %103" 

COPERANDC(CFROM+3,X) AND Xe0 AND CONTROLDESCCFROM4+4,X) 4103 

AND X,FF.5 0)) THEN % IT IS STACK=PRT, %103" 

T te 34 %103- 

ELSE ; 41038 

ELSE %103" 

IF T = 1 THEN 4 MIGHT BE SEGMENT DICT, £103 

IF Bie f231]) AND OPERANDCFROM*#20X) AND X,£1237] = 0 %103= 

AND OPERANDC(CFROM4+3°X) AND Xelis2?] LEQ 2 AND %103" 

X,03:5] = 0 AND X,CF # 0 THEN % IT IS SEGMENT DIcT. %103" 

T ts 33 : %103 

ELSE 4103" 

FLSE #103" 

ELSE % MIX = 0 %103" 
IF CFROMSTABLESLOC AND T=O)ORCPRTO,CF>FROM AND PRTO,CF<N) THEN 

T t= 35 %103" 

ELSE %1038 


01132000 
01133000 
01134000 
01135000 
01136000 
01143000 
01144000 
01145000 
01146000 
01149000 
01149100 
01149200 
01151000 
01151100 
01151200 
01151300 
01151400 
01151500 
01151600 
01151700 
01151800 
01151900 
01152000 
01152100 
01152200 
01152300 


01152400. 


01162000 
01163000 
01164000 
01164100 
01164200 
01164300 
01164400 
01164500 


01164600 © 


01164900 
01166000 


01166100 © 


01166200 
01166300 


01166400° 


01166500 
01166600 
01166700 
01166800 
01166900 
01167000 
01167100 
01167200 


01167300 


01167400 
01167500 
01167600 
01167700 
01167800 


01167900 


AAMIADIIANANAVAIAN NAAN VNOAD DIAAAAAAAAAHNINNNTWANN NON M NNO oO VAR HAAR USS 


00601008332 
0060100840 
0060:008533 
00603008830 
00608009133 


00608009211 


006080094320 
00608009430 


00608009582 


00603009533 
00603009983 
00604010431 
00603010631 
00601010733 


00608010932 ~ 


006010109383 
00603014133 


(00607011582 - 


00601014834 
00603012080 


0060:012410 ~ 


00603012582 
0060#0126:0 
006080130!4 
006030131%2 
0060013182 
00608013182 
00608013123 
0060:0132:0 


00604013480 ~~ 


00601013733 
00601014220 
00603044333 
0060!0144532 
0060!014732 


00603014834 


00603015183 
006040153%2 


— 006048015333 


0060301543414 
006080157183 


00608016031 


0060%016424 
00603076732 


00601016733 — — 


0060%0168:0 
00604017182 


00608017280 = 7 


00603017681 
0060#0180!1 


006038 0183 : ae ans 


00603018480 
0060201 84¢4 
00603018522 
00603018533 
0060019122 
0060:0191:3° 


> 


() 


Cs 


Cy 


a 


ca 


IF FROM = ADR*2 THEN % INTRINSIC ARRAYe %103" 
T t= 22 2103" | 
FLSE %103" 
IF COCSTACK AND DcH]{IT) OR bel221) = 1 AND ¢€T#O OR Tw12)%1038 
AND MXO AND [STACKOK AND IRSTACK THEN Z103" 
T t= 363 ¥103" 
te MXO AND cc¢Ts1 AND @T) OR MCPSAVE) THEN %103= 
BUILDHEADERCLINEL*], FROM», 3s NAMELQO,CFI,FF a %¥1 03" 
NAMSr NAME Q,CFJ,CFJ2 Os N™FROM™2, Os La Q, 09%1038 
ELSE %103* 
IF @T AND T = 7 AND INTR AND OPERANDCADR4+(LL150,088104) eR) 
AND R t= ReCF > 1023 AND LL LE@ INTMAX THEN $103 
BUILDHEADERCLINEC I» FROMe 4e INAMELCLLIJ 9 FFe 4103" 
INAMSLINAMELLLJ aCF J» Os N*FROM"@25 O» Le Qs 0) 
ELSE 4103" 
BUILDHEADERCLINEL eI] + FROMeL ge LZ] eTeATPLT+T) o MX» #103" 
NeFROM"™2» IF PDATADESC(Q—CF eX) AND 4103" 
X.CF = FROM4+2 THEN 1 ELSE Or Lo Qe 033 2103" 
WRITECPPFDBLJ si 7eLINEL*I)3 1038 
ENDS %103" 
STKi=9¢3 BEODED!=FALSE} 
WHILE BEDSTK GEQ STKteS5TK+1 AND NOT BEDDED DO 
IF BEDDED?t= 
CLUs=STAXESTK],CF GTR FROM AND N GTR LL) THEN 
IF STAXESTK],FF&O THEN STAXCSTK],FFR=FROM4+23 
IF NOT RENDED AND CIRSTACK OR 
T=12 OR 
CDCSTACK AND DCHIT)) THEN 
STAXEMAXSTKS=MAXSTK4179=0N"1)8CFROM42)7618333245) 
&1p 684731473 
NOTPRINTCALLS=NOTPRINTCALL AND NOT MCPSAVE3 
IF ¢ONEMIX NEQ O AND ONEMIX # MX AND MX #4 0) OR %{03"= 
CNONORMALCODE AND ¢C(T#7 OR T313) OR (T#4 AND MX # 0))) 21038 
OR CNOMCPCODE AND ¢L,03%121]564 OR MCPSAVE)) THEN %103" 
ELSE 2103" 
IF T = 35 THEN %106" 
DUMPMCPSAVECODECFROM+2eN) $106" 
ELSE %106" 
PRINTCFROM+2°N)3 4106" 
MCPSAVES=FALSE3 
END} 
FROMISN3 
END3 
NOTPRINTCALLISFALSES 


END DUMP MEMORY AND NOTE STACKS} 


ARRAY MCPROGL0:255]3 

INTFGER MAXMCPROGSESPS 

ARRaY OUTERBLOCKIOI013% 

PROrFOURE SFQUFNCECARAYsbLyM)3 
VALUE LytM? 


se ARRAY ARAYrOJ3 


INTEGER LIMS 
BEGIN 
INTEGER Toi} 


REAL V3 
STREAM PROCEDURE MOVE(SeD*#D329M32)3 


60 IS 


01168000 
01168100 
01168200 


01168300 


01468400 
01168500 


01168550 


01168600 
01168700 
01168800 
01168900 
01169000 
01169100 
01169200 
01169300 
01169400 
01169500 
01169550 
01169600 
01169650 
01194000 
01195000 
01196000 
01197000 
01198000 
01199000 
01200000 
01202000 
01203000 
01204000 
01208100 
01209000 
01210000 
01211000 
01212000 
01213000 
01213100 
01213200 
01213300 
01215100 
01216000 
01218000 
01219000 
01219100 
01220000 


299 LONG 


01221000 
01222000 
01223000 
01224000 
01725000 
01226000 
01227000 
01228000 


01229000 
START OF SEGMENT 


01230000 
01231000 


AAS HH HOON OV VU UH HAHAH HHH HAN OH IAANOOMAADANGAWOAAAMRIAAO FDU 


00608019280 
0060#019430 
0060:019431 


00602019532 ~~ 


0060019933 
0060:02013%3 


0060%020332 | 


00604020533 
00603020933 
006080244%4 
00601024481 
00601024982 
0060!022234 
0060:0226!0 
00604022933 
00604023030 
0060:023430 
00603023631 


0060024182 ~~ 


00603024533 
00608024583 


00608024782 


0060%0251%2 
00603025122 
0060802543} 
0060!0260:0 
00604026182 
00603026210 
0060:0263%2 
0060:0267%2 


0060:80268%1, = 


00602027080 
00608027231 


00608027733 


0060*0280%4 
006010281%2 


0060:0282:1 — 


00601028480 
006023028431 


00603028831 = 


00602028933 
00604028983 


006080290!0 (70 


006040290814 
00608029133 


62 


et an 


» NEXT SEG 

T 00103021651 

T 0010:02419%2 

T° 001020219%2° 

T 00101022133 

T 00101020133 

T 00408020383 

T 001020290433 

T 00402020483 

T 00102020133 

ORR OK kok 

T 0062:0000:0 
T 00623000030 ~~ 


Cy 


C7’ 


{ \ 


XN 
pa 
O 
4 


) 


Mari 


Sua Besicce. 


Oo oO C6 © 


Sree dno. os 


> MO WO QS Dr SS 


(- Os x 


QO 


—., 


'. 


VALUE D320M323 
BEGIN 
SltaSs DIlsep3 
D32(DS'=32 WOS)3 
DSt=M32 WOS; 
END MOVES 
Tt=sLI1M3 
WHILE ¢(Tt=Te1)20 DO 
BEGIN 
TtSLiMs 
LIFCVISARAYET]),CFE3 
WHILE ARAYCII.cF>L po 
Pt=]"13 
IF CLssi"T)>0 THEN 
BEGIN 
MOVECARAYCT#172ARAYETIJ ob. 6378630 L 4385993 
ARAYCII8=V3 
END3 
ENDS 
END SEQUENCE} 


INTEGER BADSAVEPRTLOCS 
PROCEDURE RE ISONTAND RTS INCE ROG CE?) VALUE B3 BOOLEAN B}3 
BEGIN 

REAL R3 


INTEGER TYP3 
FORMAT TOTALPROCS(///"### A TOTAL OF "+135" MCP PROCEDURES «, 


"WERE PRESENT IN MEMORY"), 
BADLOCC//"ex* AT LEAST "stds" MCP PRT LOCATIONS DO NoT *, 
"CONTAIN PROGRAM OR DATA DESCRIPTORS FOR SAVE CODE a 
"AS THEY SHOULDse.")e 
FCX8e"PRESENT MCP PROCEDURES"// 
HPRTM eXSe™DESCRIPTORM s XGa"THRU"// D3 


IF NOT RB THEN & SORT/*DONT* LIST 
BEGIN 
IF DESCRIPTORCESPBITs#Rs TYP) AND TyPs"75" THEN 
MCPROGEMAXMCPROG#=0]!s 
CESPtaR,CFI8 
CESP#R, £8210)" 4904883394578 
ESPBIT£8? 38410) 
ELSE MAXMCPROGI#"43 
IF MAXMCPROG NEQ "1 THEN 
OUTERBLOCKLOIS=CPRIMAX+1)8(CESP"1) CTF3 
FOR 187129 STEP 1 UNTIL PRTMAX DO 
IF DESCRIPTORCI eRe TYP) AND 
CTYP="75" OR TYPS"77" of TYP="74%) AND 
RaCF#ESP THE 
NCPROGEMAXMCPROGISMAXNCPROGS1I1= 
R,CF& 
CReCF+R,18110)"47 1843331598 
108:38:10]3 
SEQUENCE CMCPROGeMAXMCPROG)3 
FND ELSE % LIST ONLY 
BEGIN 


62 IS 


START OF SEGMENT 


START OF SEGMENT 


64 1S 


006280049%3 2 


01232000 T 0062:0000:0 
01233000 T 006230000:0 
01234000 T 0062%0000:0 
01235000 T 00628000081 
01236000 T 00623000230 
01237000 T 00628000231 
01238000 T 00623000234 
01239000 T 00621000333 
“01240000 T 006230006:0° 
01241000 T 0062:!00063t0 
01242000 T 00621000732 
01243000 T 0062!000932”7 
01244000 T 006220011%2 
01?45000 T 00624001231 
01246000 T 0062:0044?{ ~~ 
01247000 T 006220014532 
01248000 T 0062:001834 
01249000 T 
014250000 T 006240014933 
01251000 T 0062:0020%0 
23 LONGse NEXT SEG 4O 0 7 

01251500 T 0010!022123 
01252000 T 00103029133 
01253000 T 00102022133 
01254000 T 00101022133 

FRO ORR KOK 63 
01255000 T 00632000050 ~ 
01256000 T 0063400000 

KO KK OK ok ok 64 
01257000 T 0064000080 
01257100 T 0064!000030 
01257110 T 00641000030 
01257120 T (0064?0000307- 
01258000 T 0064?0000:0 
01259000 T 0064!000030 
61 LONGs NEXT SEG Ose ee 8 Re 
01259500 T 00633000030 
01259600 T 0063:0000:1 
01260000 T 006310001%2 © 
01761000 T 00631000333 
01262000 T 0063!0005%2 
01263000 T 0063!0006!0- 
01264000 T 006340008t0 
01265000 T 00633000933 
01265900 T 0063!001133 
01266000 T 006320014231 
01267000 T 00634001533 
01268000 T 0063:!0017!2 ~~ 
01269000 T 0063:0018:!0 
01270000 T Q0063:00213!t2 
01271000 T 006340022:1 7” 
01272000 T 006320024314 
01273000 T 00631002533 
01274000 T 0063:0028:0 ~~ 
01275000 T 00633003133 
01275500 T 0063800332 
01275600 T ~006310033%2 — 


cm 


cy 


Ci 


() 


sone ee | eteraecar, 


cc. 


O 


) 


(3 


( “O° © © 


O 


NEXTPA 
WRITEC 
SGLT0G 
FOR 18 
DLSPLA 
SGLTOG 
WRITEC 


IF BADSAVEPRTLOC NE@ O THEN WRITECPsBADLOC + BADSAVEPRTLOC)3 


ENDS 
END GET So 

GETSORT 

GETSORT 


VALUE FROM, 
REAL FROM, T 


BEGIN 


ARRAY MCPDAT 


INTEGER [ods 

DEFINE SIZEF 

SGLTOq f= TR 
MAXMCPDATA 

FOR y t= PRT 

IF nESCRIP 

IF ¢(¢(Ks" 

(ke"5 

IF gel 

MCPD 

CJ 


SEQUENCE CMCPDATA»sMAXMCPDATA)3 


1 iF 3 


GE3 

PeF)} 

t=TRUE} 

=O STEP 1 UNTIL MaxXMCPROG DO 
YoMCPROGE11,.678210),TRUEDS 
{=F ALSE3 

P» TOTALPROCSsMAXMCPROG4{)3 


RT AND LIST PRESENT MCP PROGRAM SEGMENTS3 


“DEFINE GETANDSORTMCPROG= 


ANDLISTMCPROGCFALSE) 4} 


DEFINE LISTMCPROGSs 


ANDLISTMCPROGCTRUE) #3 


PROCEDURE PUMPMCPSAVECODECFROMsT00)}3 


TOO3 
003 


A £08127]3 % HOLDS DESCRIPTORS POINTING INTO 


% AREA BETWEEN FROM AND TOO, 
K»MAXMCPDATA$ 
= [8410]4#3 
UE} 
= F413 
BASE STEP 1 UNTrL PRTMAX DO 
TORCtedeK) THEN 
75" OR Ke"77" OR Ka"74") AND ¢(J,CF#ESP OR TsESPBIT)) 
Ow AND J,SIZEF#0) THEN 
F GEQ@ FROM AND gsCFtJ.SIZEF LEQ TOO THEN 
ATACMAXMCPDATAS=MAXMCPDATA44)] t= J,CF & 
eCF4J,SIZEFny) FF & T SIZEFR REALCK="50") Civtid3 


%106« 
%106" 
%1069 
%106= 
4106" 


START OF SEGMENT 


%106" 
%106" 
%106™ 
%1068 
¥106= 
%1068 
%106= 
OR 

%1068 
¥1 06" 
%106" 
2106 


® SORT DESCRIPTORS IN ORDER BY ADDRESS,» 


2106% 


NOTPRINTCALL += TRUE & NOTPRINTCALL €1546)3 % STACK PREVIOUS VALs%1068 


WHILE FROM < 
IF ¢ > MAX 
BrGIN 

PRINTC 
FROM 3 
END 
ELSE 
If FROM 
BEGIN 
PRIN 
FROM 
END 
ELSE 
IF FRO 
BEG! 
IF 
EL 


TOO po 
McPDaATA THEN 


FROM, TOO)? 
= T003 


< CJPSMCPDATALCIIJ«CF) THEN 


TCFROMeWJ)3 
ro od3 


Mes J THEN 
N ie 
BOOLEANCLINKTYPES=14MCPDATACI),£1%1]) AND NOMCPCODE 
SE 
BEGIN 
DISPLAYCMCPDATACII,SIZEFe TRUE} 
PRINTCJsMINCTOOsMCPDATALIJ,FF412)3 
ENDS 


2106 
4106" 
%106 
%106" 
4106 
%106" 
2106" 
%106* 
%1068 
2106" 
%106" 
Z106" 
4106" 
%1068 
¥106" 
THEN 

%106" 
4106 
%1068 
%1068 
4106" 


63 1S 


01276000 
01277000 
01277100 
01278000 
01279000 
01279400 
01280000 
01280300 
01280500 
01281000 

69 LONG 
01281400 
01281410 
01281420 
01281430 
01281500 
01281510 
01281520 
012814530 
01281540 


01281550 
01281560 
01281570 
01281580 
01281590 
01281600 
01281610 
01281620 
01281630 
01281640 
01281650 
01281660 
01281670 
01281680 
01281685° 
01281690 
01281700 
01281710 
01281720 
01281730 
01281740 
01281750 
01281760 
01281770 
01281780 
01281790 
01281800 
01281810 
01281820 
01281830 
01281835 
01281840 
01261845 
01281850 
01281855 


01281857°C™ 


Penn Sse rs 


MQOMAOAANNMAOAVNOMOVVUVVVVTOVVVVVVVUVVVVUVUVUU EUV VVV HAH HHS 
' 


00633003333 
00638003733 


00631004084 


006340041383 
0063%0043%2 
00633004782 
00634004830 
00633005732 


0063006680 ~~ 


00633006630 


NEXT SEG 10 


0010022133 
001010221:3 
00103022133 
001018022133 
00103022133 
00100221433 
0010029133 
001040224333 
00103022133 


00651000183 
00651000183 
00654000133 
00654000183 
00654000281 


0065100033 ~ 


006580005#2 
006540006!0 


00651004230 °° 


00653004484 
006510049t2 


0065:002183° °° 7 7 


00653002933 
00654003152 


0065:0031:3 


006528003383 
006580035%2 


00653003650 


00653003681 
00653003933 
00658004084 
00652004031 
00653004081 


0065:004382— 


00651004333 
006580046t1 


~ 00658004783 


00652004783 
0065480047383 


“00653004831 


006530049t2 
00654005280 


00658005231 ~ 


006520053%2 
0065:0055t2 
0065#0062t0 


65. 


a 


2. SAL VERY 


o oO Oo 


S 


“, 


Ce 1 20 a 


O 


C) 


Oe. 


OQ 


O O 


Cy 


ee 


FROM t= MCPDATALIJaFFi3 
1 is I + 3 
END 
FLSE & FROM > McPDATACI1,CF 
1 ts 7 + 413 . 
SGLT0q te FALSE : 
NOTPRINTCALL #= NOTPRINTCALL,£1946)3 % POP VALUE 
END OF DUMPMCPSAVECODE; 


ARRAY INTSPLOSITNAMESIZE™1)3 
INTFGER INTSPMAX3 
PROCEDURE GETSORTANDLISTINTRINSICS3 
BEGrN 
INTEGER IMAXeTYP3 


REAL ADR»Rol3 
REAL MIX3 
FORMAT ITEMCX2eA3e" =Hea(X4eA5) 2 


BADINTOC"x*x* BAD INTRNSCELOI")s 
FCX8s"*PRESENT INTRINSICS"// 
"INDEX" #X7e"F ROMs X5e"THRUN/ 93 


INTSPMAX #2913 
IF DESCRIPTORC INTRNSC ADRs TYP) AND TYPE"SO" THEN 
BEGI 
IMAXtSApR,C8910]"43 
ADRt=ADR«CF3 
IF OPERANDCADRsR) AND R,C1#38)=0 
AND R NEQ@ O AND R Lp IMAX THEN IMAXS=R ELSE MIXt="q3 
IF 1MAX>0 THEN 
FOR [t=4 STEP 4 UNTIL IMAX DO 
IF OPERANDCADR+IeR) AND R,CF21023 THEN 
INTSPLINTSPMAXS=INTSPMAX4#1 I) $5 
Ip [217 THEN RecFactR cr+3) CTF & 168338310] ELSE 
R.cr& 
CIF OPERANDCR,CreieL? AND 
O<cLt=L,.Fr) AND 
L$1023 THEN 
ReCF+L"4 ELSE R,CF)616333815]8 
1£8338340)3 
END} 
IF INTSPMAX20 THEN 
BEGIN 
NEXTPAGE!S 
DISPLAYCINTRNSC+ TRUE )) 
IF MIX LSS 0 THEN WRITECPCDBLIJ*BADINTO)? 
WRITECPCDOBLI@F )3 
SEQUENCE CINTSPs INTSPMAX)3 
FOR 1#=0 STEP £ UNTIL INTSPMAX DO 
BEGIN 
WRITECLINEC* I], I TEM*POCTAL CLES INTSPL7],C8ii0))>» 
OCTALCINTSPLI11]_¢CF)2 
OCTALCINTSPEI]—FFI)3 
IF LSYNTMAX THEN 
MOVECINAMSCINAMECLI,CFIePLINEL 4)» 
INaAMECLI,FFD3 


2106" 
%106% 
%106" 
%106" 
2106" 
%106" 
%106" 
%106% 


65 IS 


01281860 
01281865 
01281870 
01281880 
01281890 
01281900 
01281905 
01281910 


76 LONG 


01282000 
01283000 
01284000 
01285000 
01286000 


START OF SEGMENT 


01287000 
01287100 
01288000 


START OF SEGMENT 


67 IS 


01288100 


01289000 


01290000 


31 LONG 


01291000 
01292000 
01293000 
01294000 
01295000 
01295100 
01295200 
01296000 
01297000 
01298000 
01299000 
01299100 
01300000 
01301000 
01302000 


01303000° 


01304000 
01305000 
01306000 
01307000 
01308000 
01309000 
01310000 
01310100 
01311000 
01312000 
01313000 
01314000 
01315000 
01316000 
01317000 
01318000 
014319000 
01320000 


OaIOIGana 


AHA AHH AAA A st AA A A A HT Hs HH ee AH RH HH 


0065:0062:0 
0065%006481 
006520065:3_ 
0065:006533 
0065#0065%3 


006548006810 


00653006831 
00654007031 


NEXT SEG 10° 


0010:0221:33 
00103022583 
0010022533 
00102022533 
0010:022533 


kok OK Kk 66" 


00661000010 
0066#0000t0 


0066!0000%0 © 
2 OOK KOK 67 


00671000010 


00673000070 


00674000030 


NEXT SEG 66 


0066:000030 
0066000182 
00662000383 
0066000480 
0066300053 3 
00664000782 


00668000982 ~~ 


00661004434 
00664004583 
00668001732 
0066%002080 
00661002230 


00663002782 > — 00 T On 


00664002783 
00661002983 


006610031483 © 


00661003231 
00664003654 


~ 0066480040t0 


00662004080 
00662004182 
006630041183 
0066#00453 3 
00663004732 
0066:00513:2 
0066:0054:0 
0066005533 


00662005782 


00663005782 
0066!0065%2 


0066800681 ~ 


0066t0075%2 
006630076:0 


00662007681 © 


» 


of 


WRITECPLDBLJs7sLINEL*])3 
END} 


ENn3 
END GET SORT AND LIST PRESENT JNTRINS1CS3 


STREAM PROCEDURE MOVCCSsSpeDeDPaWsC)3 


VALUE SpseDpaWeC3 


BEGIN 


END 


BOOLEAN PROCEDURE WITHINCARAY* AMAX*+ ITEMsRESULTs PLUS )3 


Syr1=S3 SlesSleSp3 

DIs=D3s DItsDI+DP3 
WOOS#58 CHR) DSt=c CHR 
MOVC3 


VALUE AMAXe ITEM? 
ARRAY ARAY[O]} 
INTEGER AMAXsITEM*RESULTsPLUS3 


BEGIN 


BOOLEAN FOUND 


LAREL EXI!T$3 
IF AMAX20 THEN 
FOR y#=0 STEP 1 UNTIL AMAX DO 
IF FOUNDt= 
CARAYE 1 ]eCFSITEM AND ITEM SARAYCIJ.FF) THEN 
BEGIN 
RESULTtsARAYL1],£8840)3 
PLUSt=;:TEM@ARAYr11,CF3 
GO TO EXIT: 
END3 
EXIT: WITHINS SFOQUNDs 


END WITHINS 


ARRAY PROGSE0:3+0:255]3 INTEGER PROWS; 
DEFINE CONVERTIT = MSG 38 DI3 


STREAM PROCEDURE FORMATCODENAMECMSG pWHICHsSEG*ADReSYL»NAME@N) 3 


DI t= LOe T3 
DI ¢* pl + 4 
“OS 3* 7 pEc3 
DI '* pl * 73 
OS $= 6 FILL: 
DI $= MSq@} 
SI $s LOC T} 
S] 3s S] + 43 


4104 
%104= 
S104" 
41046 
¥104e 
2104 
4104" 
¥104" 
¥1048 
%104" 


7 CIF SC = * * THEN SI 3s SI + 4 ELSE DS ts CHR) 


VALUE WHICH» SEG#ADRsSYLoN} 


BEGIN 


LOCAL T3 


LABFL MOVADR» MCPCODEs INTRINSICse MOVNAMs, EXIT» MCPOUTERBLOCK3 
t= MSG} 
ts Cl + WHICH3 


DY 
Ci 


Go To MOVADRS 
Go To MOVADR3 
Go To MOVADRS 


S| 


:= LOC SEG; 


CONVERTITS 


DS 


r= LIT "3"3 


¥104e 
Z104- 
¥104= 
%1048 
¥104= 
¥1 04m 
4104" 
¥1{ 04m 
%104 
Zi04= 
1048 
E104" 
7104= 
2104" 


66 1S 


01321000 
01322000 
01323000 
01324000 


T 
T 
T 
T 


90 LONGs 


01325000 
01326000 
01327000 


01328000. 


01329000 
01330000 


01331000 


01332000 
01333000 
01334000 
01335000 
01336000 
01337000 


START OF SEGMENT 


~ 01339000° 


68 IS 


01338000 


01340000 
01341000 
01342000 
01343000 
01344000 
01345000 
01346000 
01347000 
01348000 
01349000 


18 LONG 


01349005 
01349010 
01349020 
01349030 
01349040 
01349050 
01349060 
01349070 
01349080 
01349090 
01349100 
01349110 


01349120" 


01349130 
01349140 


01349150 © 


013494160 
01349170 
01349480 
01349490 
01349200 
01349210 
01349220 
01349230 
013492740 


NEXT SEG 


ANMAMANAAANANONAMVNANNAMAAANMNO® AAA ARAAAR FAA AA HAH A tA 


00663008010 
00663008430 


00663008631 — 


0066:0066!1 


NEXT SEG 10 


0010%?0295%3 
00103029533 


00108022583 


00108022630 
00103022631 
00101022783 


0010302293 ——— — 


0010#022933 
00108022933. 
00101022983 
0010022933 
00101022933 
00101022943 


Fe OR 68 


006830000%0 


0068!0000%0 °° © 


0068+0000' 4 
00683000230 
0068:0002!0 
006830006350 
00683000611 


“0068000880 © 


00684004084 
00684004132 


00688004382 ~ 


00682001431 


00102022933 
0010:0232:1 
00103023281 
001080232!1 
0010023231 
00103023231 
00103023234 
0010:0232:1 
00103023281 


00108023281 


00103023231 
0010t023231 
0010:023211- 
00103023231 
0010023231 


00408023430 ~ 


00104023430 
00101023480 


001030234:0 


00403023484 
0010:0235!2 
00103023532 
00108023533 
00108023533 


00108023983 


10, 


S ©. Ge’ 


Retic.6o. oh 


© 


O © O © © © 


Gy 4. oe. 3 


CS 


s) 


i 


MOVADR? %104™ 
SI += LOc ADR} %1048 
CONVERTITS3 %104= 
DS s= LIT "e"3 %104" 
S} := Loc SYL3 %104= 
CONVERTIT3 ¥104e 
OS :=& 4 LIT " OF "3 %104" 
CI := CI + WHICH? Z104= 

GO TO MCPCODE:3 %104= 
GO TO MCPOUTERBLOCK; Z104" 
GO TO INTRINSIC3 %104e 
DS += 12 LIT "USER PROGRAMS %104" 
GO TO EXITS %104« 

McPOUTERBLOCK:? ¥104a 
DS += 15 LIT "MCP OUTER BLOCK" 7104= 
GO TO EXIT} %104= 

MCPCONES } ¥104« 
DS es 8 LIT "MCP CODE" %104= 
GO TO MOVNAM$ %104m 

INTRINSIC? %104= 
DS := 9 LIT “INTRINSIC"S Z104e 

MOVNAME %104e 
DS 3:5 3 LIT * @ "3 %104= 
St} s* NaMe3 %¥1046 
N ¢ 8 CIF Sc =" ™ THEN JUMP OUT 2 TO EXIT ELSE DS #5 CHR ) 23 2104" 

EXIT! %104™ 
DS 1&8 LrT ARROW} ¥104= 

END Of FORMATCODENAMES %104= 

BOOLEAN PROCEDURE WITHINCODESEFGMENTCADDRESS »SEGeADReSYL»MSG)3 2104s 

VALUE ADDRESS, SYL3 %1 04" 

INTEGFR ADDRESSsSEGs ADRs SYL} %104e 

ARRAY MSGL*]} %104= 

BEGIN %1049 

INTEGER 73 %104= 

BOOLEAN FLAG} 4104" 

1 §s #13 %104m 


IF WITHINCODESEGMENT t& WITHINCMCPROG sMAXMCPROGsADDRESS»SEGsADR) THEN 
FORMATCODENAME (MSGE¥*1]202SEGs,ADR»SYL*NAMS[NAMELSEG],CF)» %104— 
NAMELSEGI,FF) %104- 
ELSE Z2104= 

IF WITHINCODESEGMENT 82 WITHINCOUTERBLOCK»O*#ADDRESS»SEG#ADR) THEN 
FORMATCODENAMECMSGE J] 9 1sSEGRADRS FADDRESS»*SYLeSYLeSYL) %104m 
ELSE B104" 
IF WITHINCODESEGMENT = WITHINCINTSP» INTSPMAX*® ADDRESS* SEGs ADR) THEN 


FORMATCODENAMECMSG(L&]e2eSEGeADR#SYLeINAMSCINAMELSEG],CF]2 21048 
INAMELSEGJeFF) %104@ 
ELSE Z104" 
WHILE Cyisz41) LEQ PROWS AND NOT FLAG DO Z104= 


IF WITHINCODESEGMENTS&=FLAGHeWITHINCPROGSE I e*)» PROGSC1,2551» 


ADDRESSsSEGse ADR) THEN ¥104" 
FORMATCODENAMECMSG[ *] 23eSEGPADReSYLeSYLeSYL)3 %104= 

END OF wITHINCODESEGMENT3 , ¥104 
% ¥104= 


INTEGER PROCEDURE SPREADCATsFeC)3VALUE ATS 
INTEGER AToFe C3 FORWARD3 


7 
69 1S 


01349250 
01349260 
01349270 
01349280 
01349290 
01349300 
01349310 
01349320 
01349330 
01349340 
01349350 
01349360 
01349370 
01349371 


01349372 


01349374 
01349380 
04349390 
01349400 
01349410 
01349420 
01349430 
01349440 
01349450 
01349460 
01349470 
01349480 
01349490 
01349500 
01349510 
01349520 
01349530 
01349540 
01349550 


START OF SEGMENT 


01349555 
01349556 
01349560 
01349570 
01349580 
01349590 
01349600 
01349610 
01349620 
01349630 
01349640 
01349650 
01349660 
01349670 
01349680 
01349690 
01349700 
01349710 


43 LONG» 


01350000 
01351000 
01352000 


) 
T 


t 


lala 


DPODAMAAIBHAANMANAAAIIAAND BFAODIOOAAIANAIANANANANANIAINANIAAOIANMNAANANANDMIAINANMAADNAN 


001080240130 
0010:0241%2 


0010:0241:2°° ~ 


0010:024532 
00102024583 
001002460 
00108025020 
0010:0250%14 


00108025182 ~ 


0010#025133 
00102025133 


001080252:0  — 


00103025333 
00103025430 


90408025430 


00101025630 
001403025684 
00101025732 
0010:0258:0 
00108025834 


00101025932 — 


00108026031 
0010:0261%2 
0010:026133 
00102026230 
00103026523 
00140:0266:0 
0010026631 
0040%09668 4 
0041015026631 
001080266!4 
00100266314 
001010266314 
0010%026634 


006980000380 
006930000:0 
00693000132 


00694000420 


0069#000884 
0069:001030 


00698001031. 


006940014%0 
00698001830 
006920018380 
00693002182 
00695002533 


00698002782 ~~ 


0069:0027%2 
00693003132 


00694003333 "°°" 


00698003680 
006930039383 


NEXT SEG 107 


00103026631 
0010:026634 


001030206631" 


69° 


6 


REAL LOcyRecw3 
PROCEDURE DUMPSTACK¢INX)$ 
VALUE INX3 
INTEGER INX3 
BEGIN 
INTEGER ToSeBoSsSEGrADReHe Le PROF I? 


INTEGER FUNNYMSCHs WHYICHS 

REAL VerR3 

REAL TOSORIG*#X*Y3 BOOLEAN WOOPS3 
LABEL ERROWT3 

LABEL DUMPIT3 

LABEL SKIPFEE3 

LAREL SQUEEZErCUTBACK,XyT3 
DEFINE cDSWOOPS #3 

DEFINE DELTA=50#3 


DEFINE MAXSTACKSIZp=542#3% MAX STACK BELOW TOS WE"LL DUMP 


DEFINE SPECSBOOLEANCSTAXLINX],£4811)#3 
BOOLEAN NORMAL» RCW 
FORMAT HDCX8*"STACK FROM "eASs™ DOWN TO "eA5)e 


TRITEMCAS#"™ = "pp 602(X190A5) 20 


SCXBe"BEDE Ms Ase") =e A6eXLoASoXin Ades MASK= ", 


A6e2CX10#A5)), 


21048 


2104" 


~ START OF SEGMENT. 


COXSe ZAG aX Ls AG MCA Tae) oF MeAGSMCML TAM EMy ry, Myyy 


STREAM PROCEDURE FORMATRCWCLINEs Fe Ce» NAME)3 


VALUE Fe C3 


BEGIN 


LOCAL TS 

DI s® LINE? 

DI :*= DI + 323 

13 «DS t= 8 LIT ™ "93 

DI 3= LINE} 

DI a= OL + 303 

DS := 10 LIT "#"ReWs Fats 
St s= LOC F3 

St t= St + 53 

SKIP 3 SB3 

5 OcTADE} 

DS := 4 LIT ", Cs; 

S} := LOC C3 

Sts S] + 53 

SKIP 3 SB} 

5 OeTADES 

DS 35 2 LIT * C3 

ST 3:3 NAME3 

63 «tr Sc # ARROW THEN pS t= CHR FLSE JUMP OUT)? 
DS se LyT *)"3 


END Of FORMATRCW} 
STREAM PROCEDURE FORMATMSCWeLINEs Rs MSFF, SALFs F)3 


VALUE Rs MSFFe SALFe F3 


BEGIN 


DI s® LINES 

DI 3& DI + 323 

13 «DS t*® B LIT ® My} 
DI := LINE 


4104" 
%104— 
%104= 
4104" 
X104" 
S104" 
2104" 
S104 
41048 
R104 
%104« 
%104-= 
4104" 
%1048 
4104" 
%104e 
2104 
2104" 
Z104e 
%104= 
%104 
¥104m" 
¥104= 
E104" 
¥104 
5104" 
Zi04= 
41048 
4104 
4104" 
2104" 


01352500 
01353000 
01354000 
01355000 
01356000 
01357000 


START OF SEGMENT 


71 18 


01357100 
01358000 
01359000 
01360000 
01360100 
01361000 
01362000 
01363000 
01364000 
01365000 
01365100 
01366000 
01367000 


01368000 
01369000 
01370000 
01370010 


56 LONG 


01370020 
01370030 
01370040 
01370050 
01370060 
01370070 
01370060 
01370090 
01370100 


01370110° 


01370120 
01370130 
01370140 
013704150 
01370160 
01370170 
01370180 
01370190 


01370200 


01370210 
01370220 
01370230 
01370240 
01370250 
01370260 
01370270 
01370280 
01370290 
01370300 
01370310 
01370320 


4 


x= Owns 


HOADAAGDIIOAAGIAND MOIOMMIAINMAAMANAADA AM ODAAD 


HAVAHAAAHA HHA 


x) 


RK IOk 


NEXT SEG 


0010:026634 
00100296634 


00403026634 ~ °° 


00108006684 
00108026634 
0010%0266t4 


eR KOR ak 70 


007050000!0 
0070!0000%0 
0070200000 
0070%000030 


00708000080 © 


00708000030 
00704000010 
0070000030" 
0070#000080 
00704000030 
00708000010 
0070#000080 
00703000080 


00711000030 
00714000080 
007140000%0 
00714000080 


00708000030 
00708000010 
0070:0000:0 
00703000030 
00708000020 
00708000030 


"00708000024 


007030002:0 
00708000231 


0070:00043:0 
00708000484 


00708000414 


00708000582 
0070:000733 
007030008314 
00703000831 
00703000932 


00703000982 ~ 


0070#0012:80 
0070:001231 


00703004211 ~ 


007030015382 
00703001533 


00708001583 ~ 


00700034583 
00703004583 


00703001630 
00708001631 


00708001830 


at 


to. 


— O0O7OFO002 YT 


~ 00703001680 TT 


cN 


rN 


Cy) 


C) 


C) 


DI s= DI + 323 

DS += 9 LIT "MSCWS Fes 

Sj += LOC F3 

St as St ¢ 53 

SKIP 3 SBI 

5 OcTADE? 

DS := 7 LIT "se MSFFs"3 

St 18 LOC MSFF3 

SI := S] + 73 

DS += CHR} 

DS += 7 LiT "s SALFS"3 

St := LOC SALF3 

St ss Sr 4 73 

0S es cHR3 

DS t= 4 LIT ", Rat} 

St s= LOC R$ 

St r= St + 63 

SKIP 3 SB 

3 OcTADES 

DS 3= 2 LIT "O00" 

END3 
STREAM PROCEDURE FORMATDESCC(LINEs PRESENCEBITs LENGTHe ADDRESS»p 

MOMADDRESS» MOMFLG)3 

VALUE PRESENCEBITs» LENGTH, ADDRESS+ MOMFLGs MOMADDRESS} 


BEGIN 
LABFL Lis THISTSAMOMe NOMOM$} 
DI t= LINES 


DI += DT + 323 
13 ¢DS t= 68 LIT * "93 
DI 3 LINES 
DI :* DI + 343 
PRESENCEBIT (DS t= 7 LIT "PRESENT"; JUMP OUT To L133 
DS := 141 LIT “"NON*@PRESENT*S 
Lit 
LENGTH (DS = 6 LIT ™ ARRAY™3 JUMP OUT)3 
DS 3= 21 LIT ™ DESCRIPTOR, ADDRESS="3 
S1 t= LOG ADDRESS!) 
Sry am Sr # 53 
SKIP 3 SRS 
5 OcTADE3 
LENGTH COS := 9 LIT “se LENGTHR"$ 
S] t# LOC LENGTHS 
S] t* SJ] + 63 
4 OCTADE: 
pS := LIT "c"3 
S$] t= LOC LENGTH: 
oS := 4 peec3 
OS ¢= LIT "9" 
JUMP OUT)3 
Cr t= Ct + MOMFLG3 
GO TO NOMOM} 
Go To THISISAMOM: 
DS := 9 LIT "ss MOM AT *3 
S1 := LOC MOMADDRESS} 
S} = St + 53 
SKIP 3 SB3 
5 OCTADE3 


4104" 
%104= 
2104" 
ZLO4= 
e104= 


Z104~ 


Z104m 
4104" 
%104= 
¥104= 
%104= 
%104= 
71042 
%104= 
%1 04m 
Z104" 
%104" 
%1048 
104" 
Z104* 
104" 
%104" 
Z1i04= 
%104= 
%1{ 04" 
%1{O04n 
¥104= 
4104" 
Z104— 
4104" 
2104 
S104" 
Z21048 
2104" 
£104" 
%104= 
%104= 
¥104" 
4104" 
%104= 
2104" 
104 
Z104= 
¥104" 
Z104s 
%104" 
%1046 
%104" 
4104" 
%104e 
4104" 
¥104-" 
4104" 
2104" 
%104= 
4104" 
4104" 


01370330 
01370340 
01370350 
01370360 
01370370 
01370380 
01370390 
01370400 
01370410 
01370420 
01370430 
01370440 
01370450 
01370460 
01370470 
01370480 
01370490 
01370500 
01370510 
01370515 
01370520 
01370530 
01370540 
01370550 
01379560 
01370570 


01370580 


01370590 
01370600 
01370610 
01370620 
01370630 
01370640 
01370650 
01370660 


01370670 - 


01370680 
01370690 
01370700 
01370710 
01370720 
01370730 
01370740 
01370750 
01370760 
01370770 
01370780 
01370790 
01370800 
01370810 
01370820 
01370830 
01370840 
01370850 
01370860 
01370870 
01370880 


MAIMIOIAAIOAOOIWIAIOI IAAIANMIOBWAAAIAIAAOYOAIAAAAHOHOMNAAVMAMO|A OO MMNANABMEAO AM AAM MAO AOD MMADNoOAaO 


00704001834 
00703001831 
00701002070 
0070002084 
007080020%4 


0070%0021%2 °° 


007080023:3 
00708002512 


0070%002533 
00703002533 


OO70!002782°> 7 


007038002782 
0070%002733 


00708002824 
00708002884 


OO7O0ON029t2 — 


00708002912 
00708003220 
00703003231 
00703003231 
0070:!0032%1 


007030032%:1 


00703003234 
0070!0033%2 


"00708002582 


“00708000783 ~~ 


00700033%2 


00704003332 
00703003333 
007030035%2 > 
0070003533 
00701003533 


OO700038IL TO 


00708004081 
OO708004182 


00703004480 


00708004782 
00708004742 


00708004753 


00708004733 
00703005081 


00708005332 


0070#0053%2 
00708005333 
00703005630 
007080056214 
00703005732 


00708005783 
00708005922 


00701005913 ~~~ 


00702005933 
00708006030 


0070%30061!3 ~° 7700 


00703006133 
0070:0062:0 
00703006230 


00703005732 ° ~~ 77” 


She 


O 


C 


GO 70 NOMOM; 


THISISAMOMS 
OS #:= 16 LIT " = THIS 7S a MOM"; 
NOMOM: 


END OF FORMATDESCS 
STREAM PROCEDURE FORMATOPCLINE® VALe LINE2)3 


VALUE VAL3 
BEGIN 
DI = LINES 


DI := pf + 323 
13 ¢ nS t= 8 LIT " 93 
DI + LINES 
DI 35 Mt + 343 
DS 38 18 LIT "OPERAND? DrcyMALs"™? 
St s= LINE23 
32 cIF SC = " © THEN St te SI + 1 ELSE DS 82 CHR)? 
DS := 6 LIT "es BCLANS 
os t= LUT Woetts 
ST +e LOC VALS 
DS := 8 CHR} 
OS te LIT Wotrs 
END} 
STREAM PROCEDURE FORMATPROGNESCCLINEGsWHICHs PBITsNAMEDS 
VALUE WHICHePBrT? 
BEGIN. 
LABFL Lis ACCIDENTRY* WORDMODEs LABELDESC», MODEs REST3 
DI t= LINES 
DI ss DI + 328 
13 «DS := 8 LIT ™ )3 
DI ¢= LINES 
DI 9= DI + 343 
PBIT (DS := 7 LIT "PRESENT"; JUMP OUT To L193 
DOS := 11 LIT “"NON*PRESENT*$ 
Lis 
Cl := cl + WHICH 
GO TO ACCIDENTRY; 
GO TO WORDMODES 
Go TO LABELDESC3 
DS y= 10 LIT ™ CHARACTERS 
GO TO MODE} 
LABELNESC! 
DS += 6 LIT ™ LABEL" 
GO TO RESTS 
ACCINENTRY? 
DS := 17 LIT ™ ACCIDENTAL ENTRY"? 
GO TO REST} 
WORDMODE? 
DS ts 5 LyT ™ WORDS 
MODE! 
DS := 43 LIT * MODE PROGRAM#$ 
REST? 
DS s= 414 LIT ™ DESCRIPTORS 
PBIT ¢ DS ts 4 LIT " To "3 
SI] %# NAME} 
63 CIF SC = ARROW THEN JUMP OUT ELSE DS f= CHR) 93 
END OF FORMATPROGDESC:} 


%104" 
4104" 
4104" 
%104= 
104" 
104= 
104" 
2104" 
4104" 
2104" 
Z1048 
Z104" 
Z1049 
%104" 
Z104= 
41048 
%1048 
z2104= 
%104= 
4104 
4104" 
4104" 
%104= 
21048 
¥104= 
%104= 
¥104e 
4104 
4104" 
2104" 
41045 
Z1048 
4104 
4104" 
%104s 
3104 
%104= 
104 
%104" 
104" 
Z104m 
Z104= 
104" 
%104— 
Z1i04« 
Z104-= 
%104em 
¥1O04= 
71040 
%1 04" 
21048 
%1048 
Z104e 


21049 


%i04= 
A104" 


S104" 


01370890 
01370900 
01370910 
01370920 
01370930 
01370940 
01370950 
01370960 
01370970 
01370980 
01370990 
01371000 
01371010 
01371020 
01371030 
01371040 
01371050 
01371060 
01371070 
01371080 
01371090 
01371100 
01371110 
01371120 
01371130 
01371135 
01371140 
01371150 
01371160 
01371170 
01371180 
01371190 
01371200 
01371210 
01371220 
01371230 
01371240 
01371250 
01371252 
01371254 
01371256 
01371260 
01371270 
01371280 
01371290 
01371300 
01371310 
01371320 
01371360 
01371370 
01371380 
01371390 
01371400 
01371410 
01371420 
01371430 


- 01372000 


WBTAIAAQMWAOYOHANIOYAONOOYONAIAIOAAIHONAAIAONANYYAAMN AA ONANANAAIAAANAAN AON ATWAYMNAANAIAMAADDADOO 


0070?006532 
007030065%2 


00701006630 — 


00703006830 
00703006982 


00703006932 
007050069%2 


00703007030 ~~ 


00703007030 
007080070814 
007048007230 
0070:0072314 
00708007231 


007080075:2 


0070%007533 
007080077%2 


0070300783 4 
007080079%2 


00702007933 
00703008030 


0070800800 


007010080!0 
00702008010 


00708006982 


“007030078F0 © 


00703008030 © 


0070100800 
00705008031 


0070:008231 
00703008221 
00708008533 
00703008783 
00702008840 


“007080082!0 = —— 


00703008881 


00705008831 
007080089%2 


00708008982 


0070#0090:4 
00708009132 


~ 007080091 %2 


00708009230 
0070#!0092:0 


00708009382 — 


00705009533 
0070:009533 
0070009630 
0070%0097%2 
0070%009732 


0070!009932° 


00708009932 
0070010081 


00703010231 © 


00708010234 
0070#0105#2 


00703010583 _ 


“00708007932 0 


{) 


Coa 


NEXTITEMS 
WRITECPLDOBLI sHDs 
IF CTOS#SSTAXCINX),CF) LSS 427 THEN keke wT 
ELSE OCTAL¢TOS), 
IF (BOSt=STAXLINX],FF) LSS 64 THEN eka xt 
ELSE OCTAL¢B0S))3 
Ir BOS LSS 64 THEN BOS!=03 
Ip TOS LSS 127 THEN TOS:=0O3 
IF TOS=0 THEN GO FRROWT32r.G¢ IN EARLY SELECTRUN 
IF SPEC THEN GO DUMPIT3: 
NORMAL SEBOOLEANCSTAXE INK] e£721))3 
IF 1NXs0 OR {NX>BEDSTK THEN 
BEGIN 
IF NORMAL THEN 
BEGIN 
WRITECPLOBLI»TRITEMsoCTALCTOS) sOCTALCSPREAD(TOSs#H»lL,))» 
OCTALCH) #OCTAL(L) 23 
ToSt=ToS"43 
END; 
IF NOT NORMAL AND BOS#64 THEN 
FOR ose het STEP =1 UNTIL ACTUALPRTBASE DO’ 
BEG! 
WRITECLINEC AI] s+ TRITEM*OCTALCTOS) sOCTALCSPREADCTOS+Hal) de 
OCTALCH) sOCTALCL))3 
MOVE CXNAMSFXNAMELTOSI,CFI,LYNECSIeXNAMELTOS],FF)3 
WRITECPCOBLJe8eLINEC*I)3 
END3 
IF BOOLEANCSTAXELINX]e£6%11) THEN BEGIN 
TOSORIG#:=TOS3 
SQUFEZEtDO TOStsTOS#1 UNTIL CWOOPSS=TOS LE@ BOS) OR 
CONTROLDESCCTOSsX)3 
IF wOOPS THEN BEGIN TOSt=T0S4+103 GO XIT END? 
CUTBACKSIF CY¥%=sX,FF) GEG BOS AND 
Y LEQ BOS +1 AND 
CDicCONTROLDESCCY,X) THEN 
BEGIN 
TOSHSMINGTOSORIGe TOS+#DELTAD3 
Go XIT3 
END 
ELSE 
IF Y GTR BOS +1 AND 
AND CD THEN 
GO CUTBACK}3 
GO SQUEEZE; 


Y LSS TOS 


XIT; 
END: 
IF BOS=64 THEN 
IF OPERAND(107¢V) AND VECYSS"EFEE"R"FEFE"C 4225823)) THEN” 
BEGIN - 
FOR 123108 STeP 1 UNTIL 111 DO 
IF OPERAND¢I*®V) AND V NE@ Y THEN [824123 
IF 12113 THEN FOR TOS#=111 STEP =41 UNTIL 108 po 
WRITECPCDBLIJ+TRITEMs OCTALCTOS)» 
OCTALCRISSPREADCTOS#HeL) De 
OCTALCH) ®OCTALCLI 3 
END? 
SKIPEEES 


01373000 
01374000 


01375000 


01376000 
01377000 
01378000 
01379000 
01380000 
01381000 
01381100 
01382000 
01383000 
01384000 
01385000 
01386000 
01387000 
01388000 
01389000 
01390000 
01391000 


01392000 


01393000 
01394000 
01395000 
01396000 
01397000 
01398000 
01399000 
01400000 
01401000 
01402000 
01403000 
01404000 
01405000 
01406000 
01407000 
01408000 
01409000 
01410000 
01411000 
01412000 
01413000 
01414000 
01415000 
01416000 
01417000 
01418500 
01418510 
01418520 
01418530 
01418540 
01418560 
01418570 


01418575 - 


01418580 
01418590 


01418600 


AR AAA RAH H HABA AAA WAH AA HA AA A A HA A I SY ot 


00701010533 
0070:0106314 


~ 00703010982 


0070%014430 
00708011830 
00704012133 
00703012830 
00702013080 


~007080132t0 


00703013333 
0070%0135%2 
007030136984 
00703043834 
0070304392 


007030139%t2 — 


00708013933 
007070144983 


007030158384 
00703015681 


00702015782 


007080160!00 07 7 


00708016250 
00708016230 


OO7O8O0172FL TU 


00703018080 
00702018434 


“O070I0L89I 20 


00708019132 
00702039231 


00703019383 ° 


00703019634 
00703019880 
0070:02003%4 
00702020234 
0070020430 
007030206%0 
0070:0206%4 
00704021010 
0070#0210%1 
00708021081 
0070:0210314 


OO70#0212t1 


007080213383 
0070:021431 
00703021582 
00703021582 
00703021532 
007030215383 
00703021933 
00703022030 


“00703022280 ~ 


00703022733 
00702023080 
00703023680 
007070240380 
0070:025081 


00708025084 © 


=~ 


3 


co 


\ 


“lee 


OO 


ee 


so Fora, re ae 


oO 


peep he 


wore 


OQ 


Oe 8OP Ge YO 0 


Or “Or “© 


() 


IF OPERANDC(TOS,V) THEN 


IF ¢CVenEEEEV&"FEEE YE 1$259237) AND NOT NORMAL) OR 


CCVe"ercee&rccece1'259233) AND 


NORMAL) THEN 
WHILE OPERANDC(TOS=1eR) AND R5V DO 
TOS:#ToOS"13 
END 
ELSE 
BEGIN 


WRITECPEDBL] + SsOCTALCVeESTAXLINX],(8310])>» 


OCTALCSPREAD(CVeV+VBED pCF eH ls) 2» 
OCTALCH) ® OCTALCL), 
OCTALCReSPREADCV441eHe lL) )» 
OCTALCH) se OCTALCL))3 
IF OCTALCR,£30%6))5"74" THEN 
IF WITHINCMCPROGeMAXMCPROGe Le CFseSEGesADR) THEN 
BEGIN 
WRITECLINEL*]¢Ce"COMPLE"® "X SLEEM®"P AT te 
OCTALCSEG) eSFGrOCTALCADR) sADReR,£40:2]93 
MOVECNAMSENAMFLSEG],CFI*LINEL7 Is 
NAMFCSEG),FF)3 
WRITECPLCDBLJ si 5,LINEL*I23 
-END 
ELSE WRITECP)3 
END3 


IF BOS=0 THEN BOSt=MAXCO*TOS=CIF NORMAL THEN MAXSTACKSIZE=4 


ELSE 128)) ELSE 
IF BOS>TOS THEN BOSS#MAX(OrTOS#1)3 
IF TOS"BOS GEQ MAXSTACKSIZE 
THEN BOSS=TOS*MAXSTACKSIZE*13 


DUMPIT:% 


IF MYSTACKADR GTR O AND MYSTACKSIZE#0O THEN 
IF NOT MYSTACKDUMPED THEN 
IF MYSTACKADR LEQ TOS THEN’ 
IF MYSTACKADR GTR BOS THEN 
MYSTACKDUMPED S=TRUE3 
FOR yisTOS STEP =1 UNTIL BOS po 
BEGIN 
2 PROte#43 
FALSES 


WRITECLINEC* IJ, TRITEM*OCTALCI) ,OCTALCRESSPREADCI pHeL))» 
OCTALCH) sOCTALC(L)I D3 
IF CONTROLDESCCI»X) AND (XecF # 0) AND CX,FF GEO BOS) AND 
(XeFF < TOS) AND 1 # FUNNYMSCW THEN &% IT LOOKS LIKE RCW, 
= WITHINCODESEGMENT¢(L.CFs» SEGs ADR» Ref4042), ALINEL#})3 
tr NOT ReW % SO FAR ANYWAY 
AnD NORMAL THEN % CHECK FOR OVERLAID NORMAL STATE CODE, 
IF QPERANDE1+X) AND Xer4tq) = 4 AND X,063%417=0 THEN 
If RCW t= (CY t= X,FF) GEQ BOS AND Y < I AND (SEG t= X,CF) # 


AND SEG «< 1023 AND CONTROLDESCCY+R)) THEN 

BEGIN 
FORMATCODENAMECALINE L&I # 3eSEG#ReCFaX el LOs2]eXeX)3 
FUNNYMSCW t= Y3 

ENDS 


IF RCW THEN % FORMAT THE LINE, 
FORMATRCWCLINED AI] *® He Lb» ALINEL*)) 


%105 


£104 
Z104s 
2104 
2104" 
%104= 
2104 
2104" 
4104s 
%1 04s 
0 

ZL04" 
4104" 
41046 
2104" 
4104" 
%104= 
2104" 
2104" 


01419000 
01420000 
01421000 
01422000 
01423000 
01424000 
01435000 
01436000 
01437000 
01438000 
01439000 
01440000 
01441000 


01442000 


01443000 
01444000 
01445000 
01446000 
01447000 
01448000 
01449000 
01450000 
01454000 


01452000 


01453000 
01454000 
01454100 
01455000 
01456000 


01457000 © 


01457100 
01457110 
01457120 
01457130 
01457140 


01457150 


01458000 
01459000 
01463000 
01465100 
01465200 
01465300 
01465400 
01465500 


~ 01465600 


01465700 
01465800 
01465900 
01466000 
01466100 


01466200 — 


01466300 
01466400 
01466500 
01466600 
01466700 
01467600 


OOIARAOOBTIIVIAVGAYVAABDADA AR AAA AHN AHA A HA OS A a 


00703025182 
0070025280 
0070%0255%2 
0070%025631 
00702025783 
00703026182 © 
0070!0265%2 
00702026582 
00702026582 
00702026533 
007030273182 


~ 007080278%0 


00703028332 
00703028733 
0070:0295%2 
007038029732 
007080300:0 


0070303008) 


00701031532 
00705032830 


(0070203308, 3 =—— 


007030332314 
00703033732 


00708033782 ~ 7 


00704034433 
00708034133 


0070803441, °° 


0070%0348!0 
0070035383 


~ 00708035430 ° ~" 


0070:0357%2 
007080357%2 
00703035834 
0070!0359% 3 
00705036132 


0070803621Q0700 


00703036383 
00703036582 
00703036582 
007010366:0 
00703036631 
00703037880 
00703038630 
00708039050 
00708039231 
00708039712 
0070039782 
00704039830 
00708040244 
00708040712 


“00708041031 — 


0070041132 
00702041431 


00708041513 ~*~ 


00702041533 
007080415383 


0070304180 7" 


oN 


cN 


cy 


IF cONTROLDESCCIsX) AND X,£294) = 0 AND CX,CF = 0 OR 4104 


TsFUNNYMSCH) THEN 7104" 
FORMATMSCWCLINEL*I]9 X,C6%9]e X,L16Fi ls X,LA7tid» %104" 
H) 41048 
ELSE ¥104" 
Ip DESCRIPTOR( IE eX*#¥) AND Y LEQ "50" THEN ¥104" 


FORMATDESCCLINEC*I], Y,C41¢1)0 X,C8210]5 X,CFe XeFFe IF X,FF = I 
THEN 41 ELSE IF X,FF # O THEN IF DESCRIPTORCX,.FFeHsY) AND CY = 
"40" OR CY = "50" AND H.CF = X.CF)) THEN 2 ELSE O ELSE 0) 


ELSE %104= 

IF OPERAND(CI*®X) AND X#0 THEN ¥104 

BEGIN %104= 

IF X,£3%6) # O THEN %104" 

WRITECALINEC¥ Je <R20,40>0 X) 7104" 

ELSE Z104% 

WRITECALINEL&]2 <115>0 X93 21048 

FORMATOPCLINEL&#J» Xs ALINEL*I])3 %104" 

END %104" 

ELSE 4104" 

IF DESCRIPTORCI*#Xe¥) AND RCYeC4081)) AND BCYef4501]) THENZ104= 

BEGIN %Z104" 

IF BCY,C4%#19) THEN % PRESENT PROGRAM DESC, %104" 

IF NOT WITHINCODESEGMENTCX.CFsSEGeADRe Os ALINEL #1) THEN 

ALINE£O) t= REALCNOT FALSE)3 21048 

FORMATPROGDESCCLINEL*]# Ye C4622] eV¥el4isi}eALINEL*I)3 21048 

END$ Z104" 

WRITECPe17eLINELe) 23 %104= 
ENDS 

ERROWT? 


END DUMPING A STACK; 


INTEGER PROCEDURE SPREADCATs»F9C)3 
VALUE AT} 
INTEGER AToFsC3 
BEGIN 
SPREAD #SCHRSCMLATeROW RAT COL] 00°3)3 
CEECFIECHRSCMLATsROW* AT, COL) 2 395)),CF3 
FasF,FF3 
END SPREAD3 
PROCEDURE DUMPROGRAMS3 
BEGIN 
INTEGER MIXeTYPsPRTHePRTIFeHeFeCeFPBeSDeALTsS3 


INTFGER LS ALPHA STARBLANKS 
INTEGER Aj 
REAL JAROO; 

REAL, STARS» JARO} Z103= 
FORMAT HDCA5#™ = "eA6s2CX1# AS) eX2eA1e X19 ¥*AG) » 


HiCXBs"PROGRAME™eXBet/pX7e%— MIX s*e12)3 


INTEGER PCOLsSIZ*ROsCLo RPI 
REAL SEGSsSGM3 

REAL SEaeApR3 

ARRAY LSTDr0!373 


72 1S 


73°18 


70 18 


START OF SEGMENT 


START OF SEGMENT 


75° 1S 


01467700 ¢ 00708044834 
01467800 cC 0070:042231 
01467900 C O070%0R2410 
01468000 P 0070042733 
01468100 C 00703042733 
01468200 ¢ 007080428380 
01468300 c 0070043081 
01468400 C 0070!0435:3 
01468450 c¢ O0O7030441127 
01468500 c 00708044712 
01468600 ¢ 00704044733 
01468700 ¢ 007080450:0° 
01468800 c 007080450384 
01468900 C 0070045133 
4 LONGe NEXT SEG = 70 °° | 
01469000 P 0070#04613:2 
01469100 C 007040461!:2 
4 LONGs NEXT SEG 70 — 
01469200 C 0070047030 
01469300 c 007030472:0 
01469400 ¢ 
01469500 c 0070:0472:0 
01469600 c 00708047513 
01469700 c 00703047630 
01469800 C 0070%047732 
01469900 c 007030480314 
01470000 P 0070804824 — 
01470100 Cc 00704048533 
01470200 c 00703048533 
01509000 T 00703048933 
01510000 T 0070:0492:0 
01511000 T 00703049230 
499 LONGs NEXT SEG 10 — 
01512000 T 0010!026634 
01513000 T 001030266334 
01514000 T 00101026634" ~~ 
01515000 T 00100906634 
01546000 T 0010:!0266#4 
01517000 T 0010:0271:2 
01518000 T 0010:0277%2 
01519000 T 0010:027834 
01520000 T 0010!0280t0~- 
01521000 T 00103028030 
01522000 T 001010280t0 
ek KOK kok KK ok 
01523000 T 0074:0000:0 
01524000 T 0074:000030 
01525000 T 0074:000030 
01526000 P 0074!0000:0 
01527000 T 0074#0000%0 
OK RK IO 
01528000 T 0075%0000:0 
26 LONGs NEXT SEG 74 
01529000 T 0074:0000:0 
01530000 T 0074:0000!0 
01531000 T 0074%0000!0 
01532000 T 0074:0000:0 


00703047230 © 7 


A 


75 


) 


) 


O 


FORMAT SEGH(X8s"PRESENT PROGRAM SEGMENTS" // 


"SEGMENT SIZE AT THRU //)» : 
BADSIZEC8C!%*") eo" INVALID SEGMENT DICTIONARY SIZE "s8C Man), 
BADSDESCCBAc"*")s" BAD SEGMENT DICTIONARY DESCRIPTOR "HBCM RM) D> 

SEGMENTCX322CAG 9X4) s20X1 9 AS) eXPeAZeAlL dD» 
POCA5a™ = MeA6eXte2cASeX1) oe Re MmAAe Hs +p AA)? 


STARSt=teexe"s STARS, f6r18]32STARS,£24218)3 
IF DESCRIPTOR(CJARsJARO*s TYP) AND TYP="50" THEN 
JAROtsJARO,CF3 
IF CPRTOK&S=PDATADESCCPRTs»PRTO)) THEN 
PRTHteSPREADCPRTsPRIF,PRTO)3 
IF PRTO>O THEN 
FOR MIXt=41 STEP 41 UNTIL MIXMAX DO 
IF ONEM[X=0 OR ONEMIX=SMyX THEN 
IF PDATADESCCPRTO+MIX,R) THEN 
BEGIN 
NEXTPAGES 
WRITECLINEL* IJ sHieMIX)3 
IF 
1F JARO=O THEN FALSE , 
ELSE 
DESCRIPTOR¢JAROSMIX»JAROO,TYP) AND TYP=*"50" 
AND CJARO0¢JAROO,CF) GTR O THEN 
BEGIN 
MOVCCMECATSJAROO) ,ROWSA COLI 012 
LINEL 2] 0490°7)3 
MOVCCMECATSA41),ROWSA,COLI] 915 
LINEL3]049007)3 
END 
ELSE 
BEGIN 
MOVCCSTARSs to LINEL2] 01209793 
MOVCCSTARSs ie LINE 3) 012097)3 
END$ 
WRITECPCOBLJ»15eLINEL*I)3 
NEXTITEMS 
WRITECP*HDs 
OCTALCPRT)> 
OCTALCPRTH)» OCTALCPRTF)s OCTALCPRTO) a” 
Ze"*PREC Kas hx] ", 
OCTALCPRTOsMIX), 
OCTALCSPREADCPRTOSMYX, FeR)), PET aUCE DS OCTALCR). 
IF FS 0 THEN oe ELSE we, 
3,"PRTICMI", WX, 49 Le R ty 
OCTAL(R4+3). 
OCTALCHE=SPREADCRt3eF oF PB) )s0CTALCF) ®OCTALCFPB)» 
IF OCTALCH.£30263)5"50" THEN " * ELSE tat, 
Pae"™*Re Ze PM, "pA ", 
OCTALCR+4)» 
OCTALCHs ®SPREADCR#4eF SD) PF OCTALCF)®OCTALCSD) 
IF OCTALCH,£3056))="50" THEN * " ELSE tat, 
4a Rede Sie MEGMENT"." DICTI*s"ONARY o 
OCTALCR+6)» 
OCTALCHESSPREADCR+GeFe AIT) eS OCTALCFE)sOCTALCAIT)>» 
IF BOOLEANCH,£30313) THEN * * ELSE tat, 


76 1S 


01533000 


START OF SEGMENT 


01534000 
01535000 
01536000 


01537000 


01538000 


76 LONG 
01539000 


01540000 
01541000 
01542000 
01543000 
01544000 
01545000 
01545100 
01546000 
01550000 
01551000 
01552000 
01553000 
01554000 
041555000 
01556000 
01557000 
01558000 
01559000 
01560000 
01561000 
01562000 
01563000 
01564000 
01565000 
01566000 
01567000 
01568000 
01569000 
01570000 
01571000 
01572000 
01573000 
01574000 
01575000 
01576000 
01577000 
01578000 
01579000 
01580000 
01581000 
01582000 
01583000 
01584000 
01585000 
01586000 
01587000 
01588000 
01589000 


T 007418000183 
ee oe KK Kk 

T 007648000183 
T 00768000143 
T 00763000133 
T 00763000133 
T 00761000183 
s 


T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 


76 


NEXT SEG ee 


0074:000133 
00748000481 
0074000782 
00743000982 
00744004084 
00743004382 


00781001450 


00741004782 
00743001884 
00743002031 
00743002182 
007430025t2 
0074:0034%0 
0074%0034!0 
0074:003533 
0074!0036%0 
00743003830 
007430041t2 


00748004484 
00744004630 
0074:0050!0 
00743005183 
00743005133 


00742005133 °° 


00745005230 
00743005410 


0074?005631 
_O07H4F0056%4 


0074:006031 


'0074%20061:2~ 


00743006353 
007450068t0 
00748007783 
00743008610 
00748008982 
00741009830 
00742010280 
0074%0143%2 
00748011630 
00743012533 
00745013081 


0074201392 00 


00748014230 
007420151383 
0074%015631 
OO748017182 
00743017430 


00743018333. 


Cv) 


Cr oo 


C} 


2e"Rebe AN, NIT ", 
OCTALER+7)» 
OCTALCHE =SPREADCR+7 oF oC) )sO0CTALCF) sOCTALCC)» 
IF Hef3052]=3 AND F<R AND C#0 THEN " " ELSE Mat, 
To™RO7e LUeMAST MSMe"CW FOR» WHICH» MSFF "ty 
SHAS FAs "LSE ", 
OCTALCR+8)>» 
OCTALCHEFSPREADCR+B8eF eC) 2 OCTALCFE 2 OCTALCC)» 
Ai ", 
2a"tReiO, "S"INCW ", 
OCTALCR4+9), 
OCTALCHIESSPREAD (RHI oF oC) sOCTALCF)sOCTAL(C)» 
IF H=O AND F=O THEN * * ELSE ttatty 
PoP*Rei te "S"LITERAMe*L FOR "e"LAST Ce "OMMUNI'?, 
MCATE ORs" PROGR*s"AM REL™e"EASE ty 
OCTALCR+10)+ 
OCTALCHS FSPREADCR#102SeC)) 2 OCTALCS)FOCTALCC)>» 
IF OCTALCH.£30!61])="50" AND O<S AND S<R AND Ree 
THEN we ELSE Wy, 
SetRei2e Ps = BY, "OTTOM w,VOF THEM." STACK"); 
IF CONTROLDESCCR+8eH) AND CLOCIRCWEEH,CF) GTR 1024 
AND HeFF GTR 1024 THEN ELSE LOCYRCWi=913 
NEXTITEMS 
PROGSCPROWS2=0, 255) tePCoLi=n43 
IF DESCRIPTORCR+4sSpeTYP) AND TYP="50" THEN 
IF OPERAND(SD#eSD,CFeSEGS) AND SEGS,£1!37]7s0 THEN 
BEGIN 
WRITECP*®SEGH)3 
FOR SEG?*1 STeP 1 UNTIL SEGS DO 
IF OPERAND(CSD+SEG*#SGM) AND 
CADR#=SGM,FF)71023 THEN 
BEGIN 
S1Ziz= 
IF COPERANDCADR*®isS1Z) AND 
$1Z,CF=SEG) OR 
COPERANDCADR#19SI7) AND 
OPERANDCADR®29H) AND 
H.£3%61=7 AND 
$1Z,£8%10]=SGM,cF) THEN 
SIZ,FF ELSE .03 
IF BOOLEANCSGM,C281]) THEN 
BEGIN 
L'=SGM,crs. 
STARBLANK Satta? § te 
FOR 1#=0 STEP 1 UNTIL YNTSPMAX 90 
IF INTSPCT],.¢8%10]2 THEN 
BEGIN 
IF L817 THEN SyZtsqt 
STARBLANK#at 3 
IS=INTSPMAX423 
END3 . 
WRITECLINEL*] 2 SEGMENT*#OCTALCSEG) #OCTALCSIZ)» 
OCTALCADR)s1F SIZ=O THEN STARS FLSE 
OCTALCADR4+S1Z"1) 2OCTALCL) eSTARBLANK) 3 
IF Lb LEQ@ INTMAX THEN 
MOVECINAMSr INAMErTLI.CFIsLINEL4S Is INAMECLI, FFD 
WRITECPs7sLINEC*J)3 


01590000 
01591000 
01592000 
01593000 
01594000 
01595000 
01596000 
01597000 
01598000 
01599000 
01600000 
01601000 
01602000 


‘(01603000 


01604000 
01605000 
01606000 
01607000 
01608000 
01609000 
01609100 
01609200 
01610000 
01641000 
01612000 
01613000 
01614000 
01615000 
01616000 
01617000 
01618000 
01619000 
01620000 
01621000 
01623000 
01624000 
01625000 
01626000 


— 01627000 


01628000 
01629000 
01630000 
01631000 
01632000 
01633000 
01634000 
01635000 
01635100 
01636000 
01637000 


01638000 © 


01639000 
01640000 
01641000 
01642000 
01643000 


‘01644000 


A AAA AMA HHH OH A A AA TTA ttt I tt ts Hs HH 


00743048733 
00743019630 
O074#019982 
00743020824 
00743021532 


0074:0232%0 


00743023830 
00743024182 


0074202508] © 


00743025241 
0074380261482 


0074:0264:0° °° 


007480273%3 
00743027831 
00743029610 
0074030810 
0074%0311%2 


00748032033) ~~ 


00743032532 
00741032831 


00743035630 


0074035932 
0074!0365%2 
00745036523 
00741036834 
00743037123 


00743037681 
00743037983 
00743038182 
00743038231 
00742038424 


007430385%2 


00743038532 
00743038681 
0074%0388:0 
00740386923 


0074%03914%2 _ 


0074303924 
00748039532 
00748039733 
00743039830 
00748039884 
0074%0400%0 


00742040034 - 


00742040280 
0074040333 
00748040410 
00743040680 
OO74#0406%4 
0074%0408:0 
00743041030 
00742042031 
00748042533 
007430435%2 
00742043620 
OO74FO44OtO 


' OO7H43037690°° 


CY 


) 


CO: GO: 4G. G- 


O 


OO Or» 


© 


END 
ELSE 
BEGIN 
IF ¢PCOLSSPCOL+1)%255 THEN 
BEGIN 
PROGSEPROWS #255 4322543 
PROWS?=PROWS+4+13 
PcOLi:#O3 
END3 
PROGSCPROWSsPCOLJ] 3s 
ApRe 
CIF SIZ=O0 THEN 0 ELSE ADR+S1Z"1)£18433215)8& 
SpGr8s38910]3 
END3 
END3 
IF (PROGSECPROWSs 255) #=PCOL)20 THEN 
BEGIN 
FOR ROts0 STEP 1 UNTIL PROWS DO 
SEQUENCE CPROGS[ROs*) sPROGS(ROs255])3 
SEGSTSPROWS413 
FOR [%=0 STFP 1 UNTIL PROWS DO 
BEGIN 
SEGSteSEGS+PROGSE 1225573 
LSTDLr] e503 
END3 
FOR SEG?*1 STEP 41 UNTIL SEGS Do 
BEGIN 
RO?#03 
IF PROWS>0 THEN 
FOR 1:84 STEP 41 UNTIL PROWS po 
IF USTOLCROJ=255 OR 
(LST0013<255 AND 
PROGSEIeLSTDEIIJ)] .CF<SPROGSEROeLSTDEROI).CF) 
THEN 
ROv=I$3 
WRITECPsSEGMENT® 
OCTALCC SGM! =PROGSEROsLSTDLCROIJI]), £82101), 
IF SGMeFF=0 THEN STARS ELSE 
OCTALCSGM,FF*SGM,CF41)8 
OCTALCSGM,CF)sIF SGM,FF=0 THEN 
STARS ELSE OCTALCSGM,FF))3 
LSTDLCROJISLSTDLCROIJ +13 
ENDS 
ENn3 
END 
ELSE WRrTECPLOBLJ,BADSIZE) ELSE WRITECPEDBLJ»BADSDESC)} 
IF cAIT&=MyXSTKEMYX]) = O THEN 
STAXLOl]t= 
CR=1)8 
€$74901893341518 
16734791) ELSE 
BEGIN 
IF STAXEAITI,FF=0 THEN STAXCAITI,FFIES"13 
MEXSTKEMIX]8=#03 
END3 
DUMPSTACKCAIT)? 


“IF ONEMIX NE@ O AND ONEMIX=MIX THEN MIXS=SMIXMAX#13 % XIT 


01645000 
01646000 
01647000 
01648000 
01649000 
01650000 
01651000 
01652000 
01653000 
01654000 
01655000 
01656000 
01657000 
01658000 
01659000 
01660000 
01661000 
01662000 
01663000 
01664000 
01665000 
01666000 
01667000 
01668000 
016469000 
01670000 
01671000 
01672000 
01673000 
01674000 
01675000 
01676000 
01677000 
01678000 
01679000 
01680000 
01681000 
01682000 
01683000 
01684000 
01684100 
01685000 
01686000 
01687000 
01688000 
01689000 
01690000 
01691000 
01692000 
01693000 
01694000 
01694100 
01695000 
01695100 
01695200 
01696000 
01697000 


AAA ADAH AAA MAH AA TAR HAA A HAA A RTA A TAA AHA AA 


0074804440 
00743044440 
00743044430 
OO748 044434 
OO74s3 0446314 
0074: 044742 
00743044982 
0074%30450%0 


00742045132 


00743045132 
0074045280 


OO74#O45281 7 © 


00744045640 
0074!045713 


00748045723 — 


00748045923 
00743046210 


OO74:0462t1 


0074046410 
00743046982 
00748047010 
OO74t047 482 
00748047442 


00743047382 


OO74S047 444 
00743047631 


“0074!0478%0 


0074047820 
0074t047831 


00748047933 ~ 


00743048182 
007430482290 


00748048382 ~~ 


00748048610 
00742048733 


007480491t2° 


00743049383 
00741049982 


~ 00748050313 


0074:0507382 
00743051280 


007430516880 - 


00744052080 
007430522!1 


(0074t0522a%4 


00743052231 
0074%05098 3 
0074#0531%2 
0074%#053240 
00743053241 


007440533%3 °° 


00743053532 
00748053583 


00748054084 "> 


00748054133 
00742054133 


OO74tO54Qty 


{ 


CN 


Cy) 


f) 


gat, 


Or Or 40 


ENDS 
IF PRTOK THEN 
FOR MyXts1 STEP 1 UNTIL MIXMAX DO 
IFCATT&sMIXSTKEMIXI]) NEQ O THEN STAXCAITI,C7#11:2=03 
COMMENT THE ABOVE WILL CAUSE ANY STACKS ASLEEPs ASSOCIATED WITH 
A MIX INDEX» BUT NOT NUMPED IN THIS PROCEDURE »TO BE DUMPED 
LATER AS CONTROL STATE STATES, 3 
END DUMPING NORMAL STATE PROGRAM INFO$ 


PROCEDURE DUMPCONTROLSTACKS3 
BEGIN 
FORMAT HCX8e"CONTROL STATE STACKS")3 


REAL VeRaA} 
INTEGER INXe]y? 
NEXTPAGE3 
WRITECPEDBLIJeH)3 
STAXL0)$e127864(£18833%15]3 
DUMPSTACK(0O)3 
NEXTPAGE? 
tices 
IF DESCRIPTOR¢ISTACKeAsR) AND Rs"50" THEN 
IF cV9=A,68110])270 AND cAfHA,CF 220 THEN 
TisAtVRq} 
IF BEDSTK GTR O THEN 
FOR INX8s1 STEP 1 UNTIL BEDSTK DO 
IF BOOLEANCSTAXCINX),£721]) THEN ELSE 
BEGIN 
RteSTAXLINX],CF3 
1F R GTR A AND R LEQ 1 THEN 
BEGIN % fSTACK ASLEEP 
STAXCINXI,FFISAS 
NEXTITEM3 
DISPLAYCISTACKs TRUEDS 
1:s03% SO DONT DUMP ISTACK TWICE 
END SPECIAL ISTACK STUFF3 
DUMPSTACKCINX)$ 
NEXTPAGES 
END OF DUMPING BEDDED CONTROL STATE STACKS 3 
IF + GTR O THEN 4% JSTACK AWAKE 
BEGYN 
STAX(C0]$578AC183339145)3 
NEXTITEM3 
DISPLAYCISTACKs TRUE); 
DUMPSTACK(023 
NEXTPAGE? 
ENDS 
IF MAXSTK GTR BEDSTK THEN SMORE €C,S, STACKS TO DP 
FOR INX!=sBEDSTK+1 STEP 1 UNTIL MAXSTK DO 
BEGIN 
DUMPSTACKCINX)3 
IF 1NX LSS MAXSTK THEN NEXTPAGE3 
END3 
1F NOT MYSTACKDUMPED THEN 
IF MYSTACKADR GTR O THEN 


74 18 


78 IS 


01698000 
016984100 
01698200 
01698300 
01698400 
01698500 
01698600 
01699000 


AAAH AAA HH 


572 LONGs 


01700000 
01701000 


01702000 T 
START OF SEGMENT x4 eke eke 77 
START OF SEGMENT ex # eRe x # x 76 


T 
T 


B LONG» 


01703000 
01704000 
01705000 
01706000 
01707000 
01708000 
01709000 
01719000 
01711000 
01712000 
01713000 
01714000 
01715000 
017146000 
01717000 
01718000 
01719000 
01720000 
01721000 
01722000 


01723000 - 


01724000 
01725000 
01726000 
01727000 
01728000 
01729000 
01730000 
01731000 
01732000 
01733000 
01734000 
01735000 
01736000 
01737000 
01738000 
01739000 
01740000 
01741000 
01742000 
01742100 


01742110 


AHH AHH HAHAHAHAHA RHA A tH RT 


00743054630 
007420548:0 
OO74#0549%2 
00748055182 
007480557383 


(00744055733 © 


0074#055713 
0074#055733 


“NEXT SEG 10 


0010!0280:0 
0010%0280%0 
00104028030 


NEXT SEG 77 


00771000080 
00772000030 


00778000080 = 7” 


00773000480 
00778000732 


00774000831 ~ 


00774000983 
007741004383 
oo771004481 
OO7T70047I2 
00771002132 


~ 00771002383 


0077%0024140 
00773002630 


00778002723 


00772002830 
0077002983 


0077003482 


00773003173 
00772003383 


— 00773003480 


0077003533 
00773003631 
00773003631" 
00773003782 
0077004182 


00773004333 7 


007730044t0 
007738004481 
OO772 004684 
00773004732 
00773004884 


OO7720049t2 


0077%0053%2 
0077!0053%2 


00778005480 707 


00773005831 
00773005834 


“00778005933 


0077006434 
007720065%2 


0077006583 


io 


> 


~ 


an) 


oa 


REGIN % SPECIAL DUMP OF USER SELECTED "STACK" AREA 
STAXLTO]8=MYSTACKADR & MAXCOeMYSTACKADR41 = 
CIF MYSTACKSIZE NEQ@ O THEN MYSTACKSIZE ELSE 200)) CTF & 
1243470193 
DUMPSTACK(0)$ 
MYSTACKDUMPEDSSTRUE3 
END3 
END DUMPING CONTROL STATE STACKS3 


DEFINE MAXMESSAGES#4 00843 

STREAM PROCEDURE MOVD¢S,DeW)3 
VALUE W3 

BEGIN 
LABEL EXITS 
S1t=S$3 DIssp3 , 
WCSCIF Scatte"” THEN JUMP OUT 2 TO EXITS DS#=CHR))3 
SpteSr"13 Drtspr923 
EXIT! NStscHRs 

FNn MOVD3 

PROCEDURE PRINTQUEVECPROCsCODE)# VALUE PROC+CODES 

INTEGER PROC,CODE3 

BEGIN 

BOOLEAN B3 


INTEGER C3 
REAL AsReSeTe Je USERCODE} 
FORMAT Q1CAS#™ = MeOCOeXt eT Oe" / 21 2eXB9)» 


Q2CA5e™ = MeOCOeXL eT 2a" / eT 2eXLe"USFERE "Ale A6eX76) 
sQSCASeXZe2C2(OeXL Ie Xie X2eX72) 
; 


NEXTITEM$ 

CHecODE,FF: 

CODE&=0 & CODE CTc} 

IF cCODF=1 THEN 

BEGIN 
DISPLAYCMIXMASK»FALSE)3 
DISPLAYCINFOMASK Ia FALSE)3 
DISPLAYCINFOMASK2eFALSE)3 
DISPLAYCCCMASK1,FALSE)3 
DISPLAYCCCMASK2,FALSE)3 


ENDS 
DISPLAY¢PROCsFALSE)} 
tt=03 
IF OPERANDCPROC»A) AND A,£94935511 AND CRtsA,CF) NEQ PROC 
THEN 
DO BEGIN 
IF NOT OPERAND(R*A) THEN I $=MAXMESSAGES#1 ELSE 
CASE CODE oF 
BEGIN 
BEGIN % OCFeGe STATILONMESSAGEHOLDER) 
WRITECLEINEC*I0QLe OCTALCR) sOCTALCHIHALFCR))>s 
OCTALCLOHALFCRIsAC9OP4I eA LL424193 
MOVDEME¢R#1 +€),ROWPCR+1 +0),COLJ*eLINEL4],» 
MINC14*MAXCOR#414))3 
WRITECPe15eLINEC*I)3 


77 1S 


01742120 
01742130 


01742140 


01742150 
01742160 
01742165 
01742170 
01743000 


84 LONG 


01747000 
01750000 
01751000 
01752000 
01753000 
01754000 
01755000 
01756000 
01757000 
01757100 
01757300 


01757310 


01757320 
01757330 


START OF SEGMENT 


01757332 
01757335 
01757340 


START OF SEGMENT 


80 15S 


01757350 
01757352 
01757355 


44 LONG 


01757400 
01757410 
01757415 
01757420 
01757425 
01757434 
01757436 
01757440 
01757450 

“01757455 
01757460 
01757470 
01757500 
01757505 
04757510 
01757520 
01757530 
01757550 


' 01757560 


01757570 
01757580 
01757590 
01757600 
01757610 


01757620 


AAA HAHAH HH HHH HAAS HAHAHA A KR HAA A TA tH te HHA A HHH 


0077%80067!2 
00773006733 
00773006983 
00773007430 
0077007583 


00773007610 


007730077%2 
0077%0077%2 


NEXT SEG 10. 


001080280!0 
001080280%0 


001080280:0 — 


001080280%0 
0010%0281%2 


“00108028182 


00101028133 
00101028484 
00103028532 
0010102860 
001080286'4 


004080086: 4 


0010%028614 
00101098634 


Tree rs ye 79 


00798000010 
007980000380 


“00793000010 
ak ak ae aC ake 80 


00801000010 


0080#80000:0 — 


0080!0000:0 


NEXT SEG (Sate eae 


00794000030 
00798000084 
00793000133 


00793000382 


00793000383 
007930004:0 


00798000513 0 


00798000782 
00792000884 
00798001080 
00792004133 
00794004133 


00798004382 ~ °° TT 


0079#0043%3 
00798001733 
00791001880 
00798001982 
00791002210 


~ 00798002281 


0079%0023%2 
00792002382 
00791003480 
007980045%2 
00793005010 


00794005333 


ENDS % 0 
BEGIN % 1¢L00KQ) 
Bi SOPERAND(R+1eUSERCODED3 
WRETECLINEL *] + Q2,0CTALCR) sOCTALCHIHALFCR) )¢ 

OCTALCLOHALFCR)eAglL9Ot4] eA, L1434]» 

IF B THEN USERCODE,(6#6) ELSE ™ ", 

IF B THEN USERCODE.C12!36) FLSFE " "D3 
WRITECP,15,LyNEC#I)3 
PRINTCR+REAL (CB) »R+993 
ENDS & 4 
BEGIN % 2¢F.G, 0C19Q) 
WRITECLINEC*1*2Q1,0CTALCR) #OCTALCHIHALFCR) De 

OCTALCLOHALF CR) ®A,C9OtAI9A,f1434))3 
WRITE CPe15eLINECeID3 
PRINTCR+1¢R+5)3 
IF OPERAND(R4+1#S) ANDCS#=8,CF) NEQ R+#1 THEN 
DO BEGIN 

WRITECLYINEC#) »Q320CTALCS) SOCTALCHIHALFCS) Dy 

OCTALCLOHALFCS) )sOCTALCHIHALF(S#1))» 
OCTALCLOHALFES+41)))3 
IF OPERAND(S+1e7T) AND T,CF NEQ S#4 THEN 
MOVDCME (S42), ROW* (S42) COLI*sLINEL6]» 
MINC9#MAXCOR#9))3 
WRITE CPs 15eLINEL*])3 
END UNTIL NOT OPERAND(S#T) OR 
(St=TeCF)SRe1 OR 
(Jt=J+#1) GTR MAXMESSAGES? Jte03 
ENDS &% 2 
END CASE3 


END UNTIL I#=1¢1 GTR MAXMESSAGES OR 
CRESA,CFISPROC OR (A,£9t4)=0)3 
END PRINTQUEUE3 


PROCEDURE DUMPMCPINFO$ 
BEGIN 
REAL ReAmNeLoTAsTSeMAsMSoLAsLS»RAsRSePAsPSS 


INTEGER TYP eSeC3 
BOOLEAN TINUOK3 
BOOLEAN COMSAVE3 
FORMAT SECA3e" = "s2COeX1L) X24 "CMe OeX1 Oot), 


NULLMESSAGES("### NO SPO MESSAGES QUEUED"), 

NUL) SLATEC"### NO INDEPENDENT*RUNNERS TO BE INITIATED"), 
NOMEMXTC o"TOGLE.C1St6]%+ Xe" = eAoetty NOMEMID, 
TFXICXBe"BIT “eo rao™ = Nett ate MeXDB), 

TFCXBe"BIT "ot 2," = stds s "SkA6/)$ 


BOOLEAN STREAM PROCEDURE BITONCWeB)3 
VALUE B3 

BEGIN — 
SyteWs SKIP B SB3 
IF SB THEN TALLY#=143 
BITONS=TALLY? 

ENDS 


START OF SEGMENT 


81 1S 


79 1S 


START OF SEGMENT 


83 18 


_ START OF SEGMENT 


0082!000080° = ~~~: 


01757630 T 0079%005733 
01757700 T 00793005830 
01757710 T 007930058307 ~~~ 
01757720 T 0079:0060:0 
01757730 T 00793007132 
01757740 T 007980079%2 °° > 
01757750 T 00794008332 
01757760 T 00798009182 
01757770 T 00791009533 
01757780 T 00793009933 
01757800 T 00791010030 
01757810 T 00793010030 
01757820 T 0079%0111%2 
01757830 T 00798012280 
01757840 T 00798012631 , 
01757845 T 00793013084 
01757850 T 00798013431 
01757855 T 007930136t0 
01757860 T 0079%0146:0 
01757865 T 00794045211 
01757870 T 007980159327 
01757875 T 00798046234 
01757880 T 00791016782 
01757885 T 00791047084 
01757890 T 007930174384 
01757895 T 00793017630 
01757897 T 00793017884°>°> 
01757900 T 00791018133 
01757920 T 00793018210 
FoR KKK BT 
4 LONGs NEXT SEG 79 
01757950 T 00793018281 
01757960 T O07980;84t4 
01757980 T 00793018884 
192 LONGs NEXT SEG 10 
01758000 T 0010:028631 
01758100 T 00108078684 
01758200 T 0010:0286314 
FOR III OK Hk 82 
01758300 T 00823000080: 
01758400 T 0082:#0000!0 
01758500 T 0082:0000:0 © 
01759000 T 00823000010 
Me a Kk ok ok ok ok 83 
01760000 T 00838000030 
01761000 T 0083%0000:0 
01762000 T 0083:000030 
01763000 T 0083:0000:0°° 
01764000 T 0083:0000:0 
64 LONG» NEXT SEG 82 
01765000 T 
01766000 T 0082:0000:0 
01767000 T 0082!0000:0 
01768000 T 0082!0000!0 
01769000 T 00823000034 
01770000 T 0082000133 
01771000 T 0062:000173 ~ 


om 


iN 


oN 


ARRAY TBLO%443]3 
REAL UArUSeTAsITSeFArFS# 
FORMAT LUNCA3)* 


01772000 T 00821000231 
01773000 T 00823000431 
01774000 T 0082:0004%1 


oe | 


SO C'S © 


C} 


Oe. AO. er sa) 


On “2 


Ce 1 


CStsA,£8'10))>0 AND 


START OF SEGMENT 


01820000 


RAO IOIOR BA 


(0082400408077 


LQUEHDRO"EL"eX2e"JOQUE"INDEX"s X2a"DISK*ADDRESS") » 01774100 T 00843000481 
BADLQUENTRYCA2e™ # BAD ENTRY 7S %p2¢0eX4))5 01774110 T 00843000484 a 
BADLQUE¢'## THE LQr ¢S INCORRECT"), 01774120 T 0084:0004%4 
FLQUECA2»X62A39X80A1,A6)» 01774130 T 00843000481 
NULLQUE¢t### NO ENTREES IN THE LQUE™)» 01774140 T 0084:0004%4 OVS 
FTCAL EX eABeXg Ap eXq ep ASeXgnAeXge Ay aXqsADeX1sA3)e 01775000 T 0084:0004%4 
RTCA3#X{#AQeX1 2 Ade X4 eA6eX1eA3)0 01776000 T 0084:0004!1 
PTCAL#XieAtaXteA5eX4eA5eX1 9A)» 01777000 T oO084:0004%4 0° 77 
ITOATHCX8e"FIELDS oF WORDS IN THE 170 ASSIGNMENT TABLES#"// 01778000 T 00841000431 
Xee"TINUN, 01779000 T 00848000481 
X12e" [(083]"/ 01780000 T 00841000471 
X12e1 £325) HARDWARE UNIT NUMBER"/ 01781000 T 0084:000431 
X42" [£823]"/ 01782000 T 00843000481 _ _ 
X12e"2 £1137] POWER OF 2ty 01783000 T 00843000484 
X120" C1826)" 01784000 T 0084:0004'4 
X125"3 (2481) INeO, OUTH4"/ 01785000 T 008430004814 
X120" p25915i/ 01786000 T O084:000441 | 
X420"4 [308148] UNTT MNEMONIC"// 01787000 T 0084t000434 
X8e"RDCTABLE"/ 01788000 T 0084000484 Ree 
X120" [038]"/ 01789000 T 00841000431 
Xi2e"1 £826) MIX INDEX IF ASSIGNED"/ 01790000 T 00843000411 
X¥2-"2 (14310) REFL NUMBER'/ 01791000 T 00843000431 
X120"3 [24317] CREATION DATE"/ 01792000 T 0084:000431 / 
X120"4 £4497] CY¥cbe"// 01793000 T 0084:0004%1 
X8e"PRNTABLE"/ 01794000 T 00843000434 
skh Se 01795000 T 008400041 
X12) C101) IF WRITE RING PRESENT" 01796000 T 0084:000431 
X120" ¢28137"/ 01797000 T 00843000434 
X120"2 £15815] ADDRESS OF TOP 1/0 NESCRIPTOR"/ 01798000 T° 0084:000434 ~~ ace 
X120%3 £30318) PHYSICAL REEL NUMBER"// 01799000 T 0084!000434 
"LUN o X68 01800000 T 0084:000431 
MTINUM + X24 01801000 7 0084:000434°°° °°7 77 
"MULTITABLE"»Xde 01802000 T 0084:000431 
"LARELTABLE"#X4s 01803000 T 00841000431 
MROCTABLEN # X24, 01804000 7 O0084:00048f 7 ~ 7 7 
*"PRNTARLE'/ 01805000 T 00841000431 
XO» 01806000 T 00841000414 
XPetIM XA MIM, Oe MIKA, MAM DXB, 01807000 T 00843000434 
X14eX14> 04808000 T 0084:000434 
XA ae XDe MOM eX Gat 3 eX6e"GreXBe 04809000 T 0084:000414 
XDeMTM Ee XZ MIM EXS pH ZV X5) 3 01810000 T 0084000441 
84 IS 265 LONGs NEXT SEG 82 
BOOLEAN PROCEDURE VAaRIFYCWHATsA»S#B8)3 01811000 T 0082000411 
bern 01812000 T oo08280004+t = 
INTEGER WHAT? 01813000 T 0082:0004!1 
REAL AS 018144000 T 00823000431 
BOOLEAN B3 01814500 T 0082:000431 ~ 
BEGIN 01815000 T 00822000484 
DISPLAYCWHAT®B)3 01816000 T 0082:0004%1 
ES 01817000 T 00821000782" ~~ 
DESCRIPTOR¢WHATs»A#S) AND 01818000 T 0082:0007%2 
S=t50" AND 01819000 T 00824000932 
T 


tC? 


Cy 


O- zs 


Or 


OQ 


Or (Or Gh 


© 


FORMAT 1OQSHC"FIELDOS OF WORDS [N THE J /O™QUEUF TABLES*// 


"LUN 


CAt=A,CF)>0 AND 
CA+S™1)<MAXCORS 
ENn VARTIFYS 
DEFINE VERTFEYCVERIFY le VERIFY2eVERIFY3)= 

VARTFYCVERIFYLsVFRIFY2eVERIFY3sFALSED#S 


XBevUNT TW 


Xqae" Lo14)"/ 


Xy2e"1 £184) 
X129"2 [538] 


X120"3 £13314 
X120"4 £1491) 
X12e"5 (1539) 
X125"6 [16:2] 
X120"7 £18215] 
X12e"8 £33315] 
XBa"LOCATQUEN/ 


Xi2." (033) 
Xt2e"1 £395) 


X20" cBsayt/ 
X122"2 £1236] 

X120"3 £18315] 
X120"4 (33:15) 
TINU , 


MUNTT'aX319 
WTOQUE™® X19» 


"LOCATQUE"» X21, 
"FINALQUE'SX11/ 


WINDEX 2X7 


UNIT TYPE™/ 

ERROR FIELD'/ 

UNIT NOT READY"/ 

ERROR FLAG"/ 

WAITING FOR AN 1/0 CHANNEL"/ 
1/0 IN PROCESS"/ 

INDEX OF FIRST 1/70 REQUEST" 
INDEX OF LAST 1/0 REQUEST"// 


= 5e DESCRIPTOR BITS"/ 
MIX YNDEX"/ 


LOGICAL UNIT NUMBER"/ 
INDEX OF NEXT 170 REQUEST"/ 
ADDRESS OF 170 DESCRIPTOR"// 


XPoM{M, KAMAN, KZ MIM XI MAM XG HSM, 
XpoMOMeXL eT X5e "Be X11 eX Qe 
XPaMMeXSeMDM eX Dez eXH ety / 


IFOCA5»X2eA3)2 
UFOCALe XL e#A2eX1sAZ0 aC Xie Al de 2CX12A5))» 


WEOCORX190)» 


)» 


LFOCAL2 3¢X19#A2)92¢(X%12A5))3 


NEXTPAGE3 
COMSAVES =COMMONS 
COMMON? sBOOLEAN( 6493 g OCTAL ONLY WHEN CALL PRINT 
DISPLAY ¢(TOGLE sFALSE)3 
IF OPERANDCTOGLE*®R) THEN 
BEGIN 
WRITECPC(DBLJ *NOMEMX]*OCTALCR,(1596]))3 
FOR isi STEP 4 UNTIL 11 po 
IF BITONCRe1) THEN WRyYTeCPoTFelole™1)3 
FILL TBE*] WITH 
Lal 


e. of 
wt 


wie 
wt 
wit 
wf 
wit 
Ww, 


9. ",Z00%BIT OOCNEVER USED) 
Wit ",%03%BT 04 
” ",206%BIT 02 
"i" "eKOOZBIT 03 
"i" “sB124BIT 04 
As s2153B1T 05 


my" "e21BSBIT 06 


01821000 
01822000 
01823000 
01823100 
01823300 
01824000 
START OF SEGMENT 
01825000 
01826000 
01827000 
01828000 
01829000 
01830000 
01831000 
01832000° 
01833000 
01834000 
01835000 
01836000 
01837000 
01838000 
01839000 
01840000 
01841000 
01842000 
01843000 
01844000 
01845000 
01846000 
01847000 
01848000 
01849000 
01850000 
01851000 
01852000 
01853000 
01854000 
01855000 
85 18 202 LONG 
01856000 
01856100 
01856200 
01857000 
01858000 
01859000 
01860000 
01861000 
01862000 
01863000 
01864000 
START OF SEGMENT 
041865000 
01866000 
01867000 
01868000 
01869000 
01870000 


oR aR 


AHHAMHA RAHA HAHAHAHA! BAH A HH A HA HA A se A tt 


00824001280 
00828004484 
00824001782 
00823004982 
00821001932 
00824004982 


WOOK 85 


0085%00419!2 


0085%0049%2 — 


0085#0019%2 
00858001982 
00853001982 
0085:0019%2 
008548001982 


00858001952 — 


00853:0019%2 
00853001982 


0085:0049%2 © 


0085%0019%2 
008530019%2 


00858004982 — 


008530019%2 
0085200149%2 
00851001982 
008538001982 
0085#0019%2 
00858001932 
00853001932 
00853001982 
00851001982 
0085%:0019%2 
008520019%2 


008548001982  — 


00853001922 
00858001982 
00851004932 
00853001982 
00851004982 


NEXT SEG 82 


0082:0019%2 
00822002430 
00823002431 
0082!002533 
0082:0027%2 


0082:002830 © 


00823002831 
0082:0038:0 


00821003912 07 


00823005583 
0082!0056:0 


0082%0057%ea 
00823005782 


0082%0057%2 | 


0082%0057%2 
0082:0057%2 


0082!0057%2 


ag eee 


CO 


0 


C) 


C) 


on, 


" no 
" 
" " oe tf 
" ", " wef 
" " ? " wo 
WHIRECTOR" es "YTOG wo. 
"SEPTICTA"s "NKING " 


a 


ees 


", 
"BREAKTOG", " aM 
" ge ren 
iL "," "j" 
" “,t ve 
ft wi "ft 
” win ie 
” tt ",f. 
"CDFREE wt ce 
"FINDINGA™*+"DDRESS "," 
"SCRATCHD"s"IRECTORY", "READY 
"MCPFREE won ren 
"INGPTSTO","PPED  =™," 
"DCQPTSTO","PPED "4" 
VOCHAIT ING, "G wn 
"SMWSTOPP™, "ED rf 
NN INETEEN"s "NOTREADI"y "NG 
"STARTOG "py" ae 
NEGGSELEC™ + "TSTOPPED"s” 
"REMOTELO"s"GFREE "1 
"SPOEDNUL™s "L0G oe 
"INTFREE "a" a 
"QTRDY " wt 
"NOBACKTA™, "LK "," 
"KEYBOARD™s"READY oe 
"RUMPTUTI"', "TIME wf 
WABORTABL', "E vas 
"NSECONDR™s "EADY ae ed 
"HOLDFREE'»” "," 
"USERDISK*»s"READY ne 
*STOREDY '," re 
"STACKUSE'," mo 
"SHEETFRE")"E ",n 
"STATUSBI","T tae 
"HPOTOG wie #,f 


"eZ212BIT 
"eS244B1T 
"esS274B1T 
"eZ30SBIT 
"sB33%B1T 
"s%36%BIT 
"eS39SBIT 
"st4oztBrT 
",Z45Z2BIT 
",S482BIT 
"eZ514BIT 
"sS54SR1T 
",Z572BIT 
"sZ6023BIT 
"eZ632BI1T 
"sZ66%BIT 
"sZ69SBIT 
",XZ72%BIT 
",S752B1T 
"sZ78SBIT 
"s%B iBT 
",Z84%BIT 
"sZB72BIT 
"sB902BIT 
",S938BT 
",Z96ZRIT 
",299%B8 IT 
"eZ102%RIT 
"eZ10523R1T 
",Z108ZBIT 
"sS1113B1T 
"PELL 4SBIT 
"e211723B1T 
"eB120%B1T 
"sB123%B1T 
"sZ126ZBIT 


“sB129Z4B1T 43 


"e2132%B1T 
",Z1352RIT 
"eZ1382%BIT 
"3Z1412BT 


FOR 14212013844024 STEP 1 UNTIL 47 DO 


BEGIN 


WRITECLINEL* Je TEXT eT sREALCBITONCReI)293 


MOVCCTBE 3K] Je O*eLINEL2]°403°0)$ 


WRITECPEDBLIJ*6*LINEL*I1)} 
ENDs 

END? 

DISPLAYCNOPROCESSTOGeFALSE)D3 

NEXTITEM3 

DUMPARRAY(TAR)3 


DISPLAYCTOGLEsFALSE)# ¥ FOR COMPARISION 


NEXTITEM$ 

NEXTPAGE? 
DISPLAYCOPTION»sFALSE)3 

IF OPERAND(OPTIONsR) THEN 
BEGIN 


42 


A4 
45 
46 
47 


86 1S 


01871000 
01872000 
01873000 
01874000 
01875000 
01876000 
01877000 
01878000 
01879000 
01880000 
01881000 
01882000 
01883000 
01884000 
01885000 
01886000 
01887000 
01888000 
01889000 
01890000 
01891000 
01892000 
01893000 
01894000 
01895000 
01896000 
01897000 
01898000 
01899000 
01900000 
01901000 
01902000 
01903000 
01904000 
01905000 
01906000 
01907000 
01908000 
01909000 
01910000 
019141000 
144 LONG 
01912000 
01943000 
01914000 
01915000 
01916000 
01917000 
01918000 
01918200 
01919000 
01919100 
019419200 
019149300 
01919400 
01920000 
01921000 
01922000 


AAA ANNA AANA HHA RAH AAA Ht A St Ht A A A 


“00828005712 


0082:005732 
0082:0057%2 


0082:0057:2 


0082:0057%2 
0082:005712 


~ 008280057#2 — 


00821005782 
00821005782 
00824005742 
00822005782 
0082:005782 


008280057#2 


0082:0057#2 
0082:00573!2 


0082:0057%2 


00823005782 
00823005722 


0082:0057%2 ~ 


00822005782 
0082t0057#2 


0082:0057:2 © 


'008220057%2 
0082:005712 


0082t0057%2 ~~ 


0082:005712 
0082:0057%2 


00862:0057:27° 


0082:005732 
0082%80057%2 
00823005722 
0082%0057%2 
00828005782 


00828005782 


0082:005732 
00821005722 


00828005712 “TTT 


00828005782 
0082:0057i2 


00828005782 — 7 


008210057%2 


NEXT SEG 82 


008200572 


0082%0067%2 
00823006732 


— 008241007982 


0082:0082:0 
00823008631 
0082:0087%2 
0082:0087:2 
00823008631 
00828008932 
00821009030 
00824009183 
0082!0092:0 
00823009630 
00821009733 


0082009831. 


oN 


i™~ 


C) 


C) 


CY) 


CO) 
Ot IF BITONCRe1) THEN 01924000 T 00823009932 
WRITECPsTFeTole™1)3 01925000 T 0082!010034 
os Fru Tac*] WITH 01926000 T 00823014480 ~~ 
cy "USEDRANs" %, 01927000 T 0082801444814 
START OF SEGMENT *2k a4 KKK x 87 
"USEDRBIt»" Wty 01928000 T 008270141610 © 
"BOUMES#s "5S "» 01929000 T 008230116:0 
ia "EQUMES" eS ", 01930000 T 00822014680 
~~ "OPNMESe"§ "> 01931000 T 00823011630 ~ 
a "TERMGO"#" "> 01932000 T 00823011630 
"GIVEDA'®"TE "» 01933000 T 0082!0116:0 
"GIVETI Ms "ME ", 01934000 T 00823011680 - 
"SAMEBRM e"EAKTAP "es "E "s 01935000 T 00821011630 
"AUTOPR™ "INT ren "» 01936000 T 00828011610 
"CLEARW'e"RS» ST>"OPUNT "es 01937000 T 0082:01146:0 — 
"DISCON*#"DCe NOMe"TIFYOP's 01938000 T 0082:011610 
i "COPNMET# "SS , 01939000 T 00823011620 
"CLOSEM™#"ESS — ta 01940000 T 0082401160 
8) "ERRORM"9 "SG y 01941000 T 008210116%0 
3 "RETMSG" 9" "» 01942000 T 00828011630 
i "LIBMSG'»" a 01943000 T 0082:01136:0 °° 
*O "SCHEDM"®"SG "s 01944000 T 00823011630 
"SECMSG"s" "» 01945000 T 00823011630 
, *OSKTOG*s” 1, 01946000 T 0082:01416:0 
© "RELTOG"s" ", 01947000 T 00822011630 
"PRDRELM™s" ", 01948000 T 00823011630 
"CHECKLs "PNK "y 01949000 T 00862:0146307 -- 
O MDT SKMS ty "Gq Wy 01950000 T 008210116!0 
"NOT UStstep ", 01950100 T 00824041630 
"LIBERR»” ", % BIT 22 ¥108= 01950200 P-° 008240146:0 © 
O "USEPBDs™ ms 01951000 T 00828011680 
"SVPBT tte" , 01952000 T 00824011630 
"RSTOG tet 1%) 01953000 T 0082701460 7 7° 7 
O "AUTOUN"® "LD "ys 01954000 T 0082#0116:0 
"RNALL fet 1, 01955000 JT 0082301163) 
"CODEOL"s "Ay ", 01955100 T 00825011630 
C) "COREST"s" 1, 01955200 T 008230116:0 
"DATAOL™s MAY Ms 01955300 T 0082:011610 
"HALT "." ", % BIT 43 ¥108" 01955305 P 0082:0146:0 ° 
CQ "NOT US"s"ED "s 01955310 T 00825014610 
"NOT UStts"ED W 04955320 T 00824014630 
"NOT UStetEeD Wy 01955330 T 008240114630 
‘. "NOT US"s"ED "e 01955340 T 00621014630 
"STOPTE*e "ST W, 01955350 T 00823011630 
"PUNCHL"™* "CK "a 01955360 T 0082!0116!0 
C) "CDONLY'#" "s 01955370 T 008240114610 
"PKTONL 2 "Y ", 01955380 T 00828011630 
"SEPARATE TE Ms 01955390 T 00821014630 
O "NOT US"eMeD ", % BIT 3 %108" 01955400 P 00821011630 
"MOD3LTOMe?"S , ¥ BIT 2 %1088 01955500 c 0082:0116:0 
; "AUTOMEM® "SS "3 % BIT 1 ¥108= 01955600 ¢° 0082301168070 
C) 87 1S 98 LONG» NEXT SEG 82 
%108= 01956000 P 00822011630 
1 t= 4 STEP 4 UNTIL 35 DO %108= 01960000 P 008230136:0 
e) WRITECPs TFs TesREALCBITONCRe1)) 92° 01961000 T 0082:0147%2 
TBLAIR2B+OxX( 3577] -TBCAti1d)3 01962000 T 008240127%2 
FOR 1%=36 STEP 41 UNTIL 39 DO 01963000 T 00828013783" oetint 


- 


Cy 


Task 


et op eel te 
ba ar eee 


Cy WRITECPsTF aT eREALCBITONCRe I) 203. 
TBOASR1643xC39™1 Je TBLAt1I] + TBLA+2I)3 
ae FOR yte40 STEP 1 UNTIL 47 pO 
0 WRITECPeTFet sREALEBITONCRo 12292, 
TBrAt=2xC47"1)),TBCA+1I])3 
END} 
O NEXTITEM? 
DISPLAY CMESSAGEHOLDERsFALSE)3 
Peaie I uaces % 13=03 


O IF OPERANDCMESSAGEHOLDER?#R) AND (Ri=R,CF)#0 THEN 
Dye) 
BEGIN 
MO WRITECLINEC®Je¢{TEMsOCTALCR)» 
OCTALCHTHALFCR)) eOCTALCLOHALFCR))," ")>3 
MOVDCMECR+1),ROWe (R44), COLJeLINELAT »eMINC9sMAXCOR@R) 93 
O WRITECPs1S5eLINEC#I2I3 
END 
UNTIL 
C. C1li=I+1) GEQ MAXMESSAGES OR 
‘ NOT OPERANDCR*R) OR 
5 atc CRIaR,FF)s0 
AO) ELSE WRITE CP*NULLMESSAGES)3 
IF DATACOM THEN 
BFGIN 
oO PRINTQUEUECSTATIONMFSSAGEHOLDER+0)3 
PRINTQUEUECLOOKQe4)3 
PRINTQUEUECDC19Q-2)3 
e PRINTQUEFUF(CPINGOs0)3 
PRINTQUEVECITLL»¢(083 CTF))3 
IF RJE THEN 
ry PRINTQUEUECRJEWAITQ,0)3 
re NEXTPAGE3 
= PRINTARRAYCSTATION)D$ 
e FOR y%=O STEP 4 UNTYL 15 DO PAROWCSTATIONe1)3 
NEXTPAGES 
END ELSE NEXTITEMS 
O DISPLAYCNSLATEsFALSE)} 


NT SPLAYCLSLATE sFALSE)$ 
| ica IF VARIFYCSLATE»AsSsTRUE) AND 
© S,04741]50 AND 
OPERANDCNSLATE +N) AND 
Nef1488]=0 AND 
QO N<S AND 
N.C47#11=0 AND 
Ss OPERAND(LSLATE+L) AND 
eo Lef1#8)=0 AND 


L<S AND 
b.f47%1]=0 AND 
Oo L#N THEN 
Do 
- BEGIN 
O Nt=REALCBOOLEANCN#+2) AND BOOLEANCS#1))3 


WRITECLINECL*¥I] 9SEsOCTAL(ON) » 
OCTALCHIHALFCA4N)) 0 OCTALCLOHALFCA4EN) De 
O OCTALCHIHALFCAtN+1)) ,0CTALCRISLOHALF CA+N41)993 
IF 129<CRI=ReCF) AND RESPRTMAX THEN 
MOVECNAMSCNAMELRI,CEIJeLINEL 3)» 


© 


01964000 
01965000 


01966000 


01967000 
01968000 
01969000 
01970000 
01971000 
01972000 
01973000 
01974000 
01975000 
01976000 
01977000 
01978000 
01979000 
01980000 
01981000 
01982000 
01983000 
01984000 
01985000 
01985100 
01985105 
01985120 
01985150 
01985200 
01985250 
01985300 
01985350 
01985375 
01985380 


01985385 


01985390 
01986000 
01986100 
01987000 
01988000 
041989000 
04990000 
01991000 
01992000 
01993000 
01994000 
01995000 
01996000 
01997000 
01998000 
01999000 
02000000 
02001000 
02002000 
02003000 
02004000 
02005000 
02006000 
02007000 


De ee Le 


00822013982 
0082:0149%2 


008230161137 


00822016382 
0082%0473%2 


00823018383 ~ 


0062:0183:3 
00823018440 


00823018583 


0082:0186!0 
00823018933 


~ 00822019080 


00822019080 
008210197#2 
0082:0209%2 
00821024631 
0082:0000%4 


0082402708) — 


0082100200!4 
00821022231 
00828022410 
00823022582 
008230230:0 
0082!0230?4 
0082202312 
0082:0232%4 


00824023343 


00821093532 
00821023630 


008280238307 7 


008250936%4 
00823024084 
0082102442 4 
00821024630 
00823025034 


008202544 > 


0062%0255%3 
00621025782 


008210205834" 


0082026030 
0082:0261183 


008280263%2 


00821026484 
008202653 


0082%026712 — 


008230266:1 
0082027030 
0082027112 
00823027281 
0082:10273%3 


00822027532 ~~ 


0082:0275%2 
0082:0277%2 


0082:028532° 


00824029280 
0082:0303%2 


~ 00823030610 7 


C7’ 


Cy 


©) 


5 


Or “Or Bo Gor ot cer vor “© 


(2 


END UNTIL NeL 


NAMECRI,FF)3 


WRITECPstSeLINe ee) )3 


ELSE WRITECPs,NULLSLATE)3 


NEXTITEM$ 


S6ELTOGtsTRUE? 
IF TINUQKESVERIFYCTINUsTAsTS) AND 


VERIFYCMULTITABLE*MAsMS) AND 
VERIFYCLABELTABLE*L As LS) AND 
VERIFYCRDCTABLEsRAsRS) AND 

VERTFYCPRNTABLE®PAsPS) THEN 


BEGI 


END 


N 


StSMAXCTSeMSeLSeRSePSI"1h 


NEXTPAGE} 


WRITECPsIOATH)3 


FOR J#=0 STEP ¢ UNTYL S DO 


BEG! 


WRITECTBE* I] eLUNSOCTALCID D3 


N 


IF 1<TS THEN 


BEG] 


ENDS 


N 


WRITECLINEC*I]aFT» 


CARBHIHALFCTA4I)), £2433] 

OCTALCA,£L27:5))> 

Ay 

OcTALCA,£3537)). 

OcTAL(A,£42:6)), 

CASSLOHALECTA+I)), C2481 ds 

OCTALCA.£25151]), 

A, 
MOVCCLINELOJsOeTBL1Jj910206)3 


[32% 3 }6 


(30%181)3 


IF J<MS THEN 


MOVCCMEC MASI 2 ROWs CMAFI) COLI] 209 TBE 43259120)3 


IF I<bS THEN 


END3 


MOVCCMECLAFID ROWPCLAFID sCOLI] eOr TBL6] 23512093 


IF I<RS THEN 
BEGIN 


WRITECLING LaeleRTe 
OCTALCCAISHTHALFCRAt+I2)2, £2488) )¢ 
OCTAL(CA,(32t6]), 
OCTALCA.£3981901). 
OCTALCCARSLOHALFCRAtIN) ,£24317))> 
OCTALCA.£ 41171993 
MOVCCLINETOJsO+TBLB]019226)3 


ENDS 
IF I<PS THEN 
BEGIN 


WRITECLING Cal ePTs 

CATZHIHALECPASID), C2484)» 

A,{25314]» 

OCTAL(CA,£262131)> 
OCTALCCASSLOHALFCPA4I)&8AL1533929}),615%15)), 
OCTALCA,£30218)))3 
MOVCCLINES0720eTBE11)959206)3 


END} 


WRITECPs15eTBE*1)3 


02008000 
02009000 
02010000 
02041000 
02012000 
02012100 
02013000 
02014000 
02015000 
02016000 
02017000 
02018000 
02019000 
02020000 
02021000 
02022000 
02023000 
02024000 
02025000 
02026000 
02027000 
02028000 
02029000 
02030000 
02031000 
02032000 
02033000 
02034000 
02035000 
02036000 
02037000 
02038000 


02039000 


02040000 
02041000 
02042000 
02043000 
02044000 
02045000 


. 02046000 


02047000 
02048000 
02049000 
02050000 
02051000 
02052000 
02053000 
02054000 
02055000 
02056000 
02057000 
02058000 
02059000 
02060000 
02061000 
02062000 
02063000 


A HAHAH HHH HHH HA BAH HH TH AH TAH HH THA TAT tA A St ttt HH 


0082:0309%2 
0086230311:2 


0082t0315%#2 


00823034543 
00821032080 


0082303244 
0082:0325%2 
00824032782 


00823032932 


00827033182 
0082:10333%2 
0082%033533 
00823033630 
00828034610 
00821034982 
008240350%0 
008240350380 


00821036030" 


008210361%2 
00823036133 


00828037031 
00822037333 
00824037620 
0082:0379%2 
00822038250 


0082'0386t0 © 


008240389%2 
00823039420 


00823039611 ~ 


00823039634 
00828039733 
0082%0403%2 
00823040450 
0082:040933 
00621041084 
0082:04114%2 
008240414384 
00822042030 
00828049382 
00824042610 


008210430384 


00824043630 
00821043634 
008251043884 
0082:043933 
00821044030 


0082:0443t3 © 


0082:0448%4 
0082:0451%2 


00823045410 


00821045983 
00821046512 


00823046733 


0082:046733 
00823047250 
00828047410 


0082:0365t2 0 


a 


cy 


NEXTPAGES 
DISPLAYCIOQUESLOTS»FALSE)E 
DISPLAYCIOQUFAVAILSFALSE)3 
TF VERTFYCUNTT»UA,US) AND 
VERTFY¢10QUEs TAs 1S) AND 
VERIFYCLOCATQUE>sLAe,S) AND 
VERIFYCFINALQUEsFAreFS) THEN 
BEGIN 
StaMAXcUSsTSeLSeFS)=43 
WRITECPsI0QSH)3 
FOR [#0 STEP 1 UNTYL S DO 
BEGIN 
WRITECTBL¥JsTFOr2OCTALCT)»eIF TINUOK THEN 
LOHALFCTASI), £30518) ELSE "Han 3 
IF 1<US THEN 
BEGIN 
WRITECLINEC #1 UFOs 
CATBHIHALFCUASI)), £2421 30 
OCTAL CAC 2524) )» 
OCTALCA.£ 2918) )» 
A,C37%4 Je 
A,C3834)% 
A,L39%1I» 
A,l40%oI» 
OCTALCCAPSLOHALFCUATI)&AL1854256]),(18615]), 
OCTALCA.£33%151))3 
MOVOCLINEG OTe Os TBLL le 4030493 
ENp3 
IF 1<]S THEN 
BEGIN 
WRITECLINGE Cale WF Oe 
OCTALCHIHALFCIA+I))» 
OCTALCLOHALECIA+I99)3 
MOVECLINEC OJ], OeTBLSI 97920133 
END} 
IF 1<LS THrn 
BEGIN 
WRITECLINE Ce] eLFOs 
CATZHIHALFCLAtIOI, F2493 76 
OCTALCA,E 27251)» 
OCTALCA,(3224])>» 
OCTALCAsL3686])¢ 
OCTALCCASSLOHALFCLAtI)&A018242:6]).018515])5 
OCTALCA2033315]))3 
MOVECLINELOJ*O* TBE B81 *722%6)3 
END$ 
IF I<FS THEN 
REGIN 
WRITECLINE Ca] e WF Os 
OCTALCHIHALFCFAtI ))e 
OCTALCLOHALFCFA+I)))3 
MOVCCLINE£O}sOeTBL12)]245291)3 
END3 
WRITECPe15e¢TBr*))3 
END} 
NEXTITEM3 
PRINTARRAYCCHANNEL)3 


02064000 
02064500 
02065000 
02066000 
02067000 
02068000 
02069000 
02070000 
02071000 
02072000 
02073000 
02074000 
02075000 
02076000 
02077000 
02078000 
02079000 


02080000 


02081000 
02082000 


02083000 © 


02084000 
02085000 
02086000 
02087000 
02088000 
02089000 
02090000 
02091000 
02092000 
02093000 
02094000 


02095000 


02096000 
02097000 
02098000 
02099000 
02100000 
02401000 
02102000 
02103000 
02104000 
02105000 
02106000 


021070007 


02108000 
02109000 
02110000 
02111000 
02112000 


02113000 © 


02114000 
02115000 
02116000 
02117000 
02117050 


02117100 


A AMAA HAHAHAHAHA A A HA A A HAA HT FTAA tt a ta 


00824047410 
00821047850 


008280479383 


0082:0481%t2 
00828048340 
00823048532 
0082t0487%2 
0082t048982 


00823048933 


00827049733 
00823050031 


0082305020 © 


00823050230 
00823051010 
00821051840 
0082:0549%2 
008220514933 
0082%0529382 
0082%059B34 
00823053123 
0082:0534ty | 
00822053712 
00822053933 
00823054210 
0082:054434 
00823055030 


~008280556!0 — 


008220558%4 
0082805568t4 


00828055983 


00823056030 
0082056333 
0082:0568:0 
00823057430 
008213057631 
00821057684 
00823057733 
0082:0578:0 
0082!058493 
008220586t4 
0082!0589933 
00827059284 
00822059533 
008210601%2 


008280607182 ~~ 


00823060933 
00823060923 
00828061031 
0082:06113%2 
00821061431 
0082061982 
0082:0625t2 
00828062723 


00828062733 


00822063230 
008230634!0 
00821063481 


NEXTITEMS 
DISPLAYCDISKOUNTsFALSF)3 
IF OFX THEN BEGIN 
DrSPLAYCEUWsFALSE)3 
PRINTARRAY¢EUQ)3 
ENDS 
IF SHAREDISK THEN 
BEGIN 
NEXTITEMS 
DISPLAYCLOQAVAIL*#FALSE)D3 
IF VARIFYCLQUE,UA,US*TRUE) AND 
OPERAND(CLQAVAILeFA) AND FA GEQ@ 0 AND FA LEQ US THEN 
IF FA=O THEN WRITE CPeNULLQUE) ELSE 
BEGIN 
WRITECPCDOBLIeLQUEHDR)3 
StsMINC20sFA#q)3 
FOR C#=0 STEP 1 UNTIL S DO 


IF NOT OPERANDCUA4C ot) OR CLAtSLef197)) GEQ 64 THEN 


WRITE CPeBADLQUENTRY*OCTALCC) 2OCTALCHIHALF CL) De 
OCTALCLOHALF(LI2) ELSE 

WRITECPeFLQUESOCTALCC) s0CTALCLAI #bel6s4]ebe012136)) 
END ELSE WRITECPsBADLQUE)3 

END LQUE3 

ENDS 

COMMON ts COMSAVES 

SGLTOGt=FALSE3 
END DUMPING MCP Y{NFOS3 


PROCEDURE DUMPAUXMEMS 
BEGIN 
FORMAT AUXC"DR'eAts™ MEMORY DUMP"), 


AUXMESSC"™# PRENTING CONTENTS OF DR eAle"e pa ™)3 


LABEL TRYANOTHERs EXITS 
BOOLEAN COMSAVES 
RELOADtsTRUES 
TRYANOTHER!% 
1F NOMO THEN GO EXIT3 
NEXTPAGES 
LOAD? 
IF AUXTYPE NEQ O THEN &% AUXMEM PRESENT 
BEGIN 

- NEXTYTEM 3 
WRITECPeAUXe 1 64AUXTYPE DIV 4)3 
WRITE CSPOsAUXMESS, L64AUXTYPE pbIV 4)3 
NEXTITEMS 
COMSAVES=COMMON? 
COMMON! =BOOLEAN¢542)3 % ALPHA/OCTAL 
PRINT(0+32768)3 
COMMONS =COMSAVES$ 
GO TRYANOTHER?3 

ENDS 
EXITIRELOADI=FALSE? 

END DUMPAUXMEMY 


82 1S 


02117125 
024117150 


02417155 


02117160 
02417200 


02117205 


02117400 
02117410 
02117420 
02117430 
02117440 
02117450 
02117460 
02117470 
02117480 
02117490 
02117500 
02117510 
02117520 
02117530 
02117540 
02117550 
02117560 
02118000 
02118100 
02118200 


(024119000 


AHHH HFA HHH HAA A HH HHS 


719 LONG» 


02119100 
02119110 
02119120 


T 
T 
T 


00823063680 
00823063631 


- 00821063830 ~ 


008230639%3 
00824064182 


0082:0642a%4 ~ 


0082:064231 
0082!0643!2 


00823064333 — 


0082:0644!0 
00823064533 


00828064733 ~ °C 


00822065132 
0082%065533 
00823065680 
0082!0659%2 
0082!0662!4 
0082:0664:0 
00823066733 
00828067810 


~0082:0684:Q0 


0082:06963 4 
00823070732 
00824070732 
00823070732 
00821070713 


0082t0708%4-— 
NEXT SEG 10 


0010%0286t1 
001080286t1 
0010%028631 


START OF SEGMENT ee KKK 88 
START OF SEGMENT ## eR RRR OO BQ 


89 1S 


02119130 


T 


17 LONG» 


02119140 
02119142 
02119145 


~ 02449150 


88 1S 


02119160 
02119170 
02119180 
02119190 
02419200 
02119210 
02119220 
02119230 
02119240 
02119244 
02119245 


024119250 T 


02119255 
02119260 
02119270 
02119280 
02119290 


39 LONG 


+ 


T 
F 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
bg 
if 
T 
T 
T 
T 
T 
9 


0089#0000:0 


NEXT SEG 88 


00883000080 
0088#0000!0 
0088:0000:0 
0088:000034° 
00880001 %2 
008830002: 0 


00882000630 © 


00883000681 
00884000712 
00883000783 
00888000830 
00883001830 
008810028!0 
00881002831 
00883002933 
00883003080: 
00883003333 
008830034!0 
00883003630 
00883003630 
00881003631 


1 


NEXT SEG °° 10 


f 


C) 


(\ 


Oo. 


ERC CEDURE FYXFID3 pete 200 T 
EG 2119310 T 
REAL A$ 021419320 T 


00103028681 
0010:0286%4_ 
00101028684 


START OF SEGMENT *& x2 &# Kx 90 


FORMAT FNEWFILEC"#NEXT FILE TO BE ANALYZED IS MEMORY/"sAtsA6)3 02119330 T 


0090000080 


START OF SEGMENT x*eekKaRKR OF 


91 1S 11 LONGe 


NEXT SEG 90 


00903000030 


009080000!0° 07 


00908000133 
00908000382 
00903000733 
00901001810 


NEXT SEG 10° 


00103028631 


START OF SEGMENT 228k 4K Ke 92 


OR OK 


009230298624 
00924028634 


NEXT SEG 10 


00101028634 
0010:028938 3 
001080289383 
00101028983 
00108028983 
004080298933 
00108028983 

are 
009340000:0 
00938000030 


"00933000024 - 


00933000081 
00938000031 
00935000084 © 
00933000031 


O.. © 


©) 


STREAM PROCEDURE MINUS{C(N*@AD$ VALUE NG 02119340 T 
BEGIN SI#sLOC NS SIteS74+53 DISA Dis eD1+53 DSta3 SUB FND3 02119350 T 
MINUSS C1 eTOFID)3 02119360 T 

FILL MDUMP WITH *sTDFID3 02119370 T 
WRITECSPO*FNEWFILE® TOF IDs C686] *eTDFID)3 02119380 T 

END: 02119390 T 
90 3S 21 LONGs 

FORMAT COLHDRCE"B5500 COLLATING SEQUENCE //X8,"01234567"/), 02149500 T 
FPUNTCYHANG CAUSED BY! 'sX24)¢ 02119505 T 
COLINECXSs 119X2eXB)3 02119510 T 

92 18 27 LONGe 

ARRAY COLLATELOt7]3 02119600 T 
INTEGER DUMPD$ ; 02120000 T 
PROCENURE INITIALIZE3 02120100 T 
COMMENT# ZERO VARIABLES & ARRAYS IN THE FVENT MORE THAN ONE FILF IS 02120110 T 
PROCESSED IN A GIVEN RUN} 02120115 T 
BEGrN 02120120 T 
INTEGER KeJi 02120195 T 
START OF SEGMENT * 

LABEL EXIT? 02120130 T 
IF noT RELOAD THEN GO EXIT? 02120135 T 
COMMENT:ZERO REALS & INTEGERS? 02120140 T 
Ie _ 02120145 T 
R= 02120150 T 
VJORNUM:= 02120155 T 
VBEn?s 02120160 T 
TABLESLOC?= 02120165 T 
0} 02120170 T 
MINLNK&= 02120175 T 
MINBAD?= 02120180 T 
MAXRBADIS 02120185 T 
MAXLNKS= 024120190 T 
PRTCODE!= 02120195 T 
0; 02120200 T 
MAXMCPROGS= 02120205 T 
ESP ys 02120210 T 
BADSAVEPRTLOC3= 02120215 T 
INTSPMAX8s 02120220 T 
PROWS$s 02120225 T 
03 02120230 T 
MAXSTKis 02120235 T 
BEDSTKis 02120240 T 
DUMPDi= 021420245 T 
03 02120300 T 
COMMENT3MAKE BOOLEANS FALSE3 02120400 T 
LNKSOKt= 02120405 T 
AVALNKOKt= 02120410 T 
SOMOKFi= 02120415 T 
SOMOKR?I= 02120420 T 


00933000081 
“00938000084 
00934000333 
0093%000333 


00938000333 ~~" 


00932000323 
00934000323 
°0093%000333 
00934000620 
00938000630 
009320006:0 
0093:00063:0 
00933000620 
00933000680 
009330009382 
0093:0009%2 


~009320009%2 — 


00932000982 
0093%00103814 


oo0o38oojoN 


00938001081 
00934001031 


009380040! 


i 


NEENCHFCKAVATLNKSt& 

FALSES 

BADCOMMENT?= 

FALSE3 

COMMENT#ZERQ ARRAYS} 

FOR kts0 STEP 4 UNTIL MIXMAX DO 
MIXSTKEK] te 
03 

FOR KieO0 STEP 4 UNTIL INAMESIZE@1 D0 
INTSPEKI]3= 
03 

EXIT! 


END INITIALIZES 


RESTART s%% 
INTTIALIZES 


FILLAREATYPE3 
LOAN; 
DUMPMCPSPRT3 
IF NOT COMMON THEN 
IF nUMPCESSPOOLONLY THEN 
BEGIN 
NUMPCESSPOOLS3 
GO FOPROG} 
END} 
IF NOT COMMON THEN 
BEGIN 
CHECKMEMORYLINKS& 
GETSTACKSFROMTHEBED; 
GETANDSORTMCPROG3 
END3 
IF COMNT THEN BEGIN 
WRITECPCDBLIJ+STARS)} 
1fF NOT COMMON THEN 


41068 


IF OPERANDC107*PROWS) AND PROWS NEQ “EFEE"Q"FFFE"C 1:25:93) THEN 


IF PDATADESCCPUNTER®R) AND RaCF LSS 4096 THEN 


BEGIN 
I#=R, 6831013 
RtsR,CF3 


IF PROWS GE@ R AND PROWS LE@ R+] THEN 


BEGIN 
WRITECLINEL*I] gF PUNT )3 


MOVDCMEPROWS,ROWePROWS »COLJ»LINEL2]23)3 


WRITECPCOBLJe15,LINEL*I23 
END$ 
FNn3 


IF BADCOMMENT THEN WRITECPLCDBLJ,COMNTPAR) ELSE. 


BEGIN 
WRITECP 01 02COMMTLE*] 93 
MOVE CCOMMTL1O0J) + COMMT[O01510)2 
WRITE CP e10*COMMTLe] 93 
END; 
WRITECPEPAGEJ] *®STARS)3 
END} 

IF NOT COMMON THEN 

BEGIN 

TF NODUMP THEN ELSE 


93°78 


02120425 
02120430 
02420435 
02120500 
02120600 
02120605 
02120610 
02120615 
02120650 
02120655 
02120660 
02120700 
02120705 


28 LONG 


02120900 
02120910 
02120920 
02121000 
02122000 
02122050 
02122100 
02122200 
02322300 
02122400 
02122500 


92123000 
02124000 


02125000 
02126000 
02126500 
02127000 
02128000 
02129000 
02129050 
02129100 
02129110 
02129120 
02129130 
02129140 
021291450 
02129160 
02129170 
02129180 
02129190 
02129200 
02129210 
02130000 
02131000 
02132000 
02133000 
02134000 
02135000 
02136000 
02137000 
02137100 
02137200 
02138000 


AAA AH Hos HHS 


= 


AR AA AHH HAA HAA HATHA A HH A HA SH OHS 


00938001031 
00935001024 
00935001333 
00933004333 
009380014480 
00938004430 
0093%00153%2 
00933004533 


00932004881 


00938002284 
00933002382 
00932002481 
00938002582 


NEXT SEG 10 
00103028923 ~~ 


00103029030 
00408029034 


001080291827 


00105029133 
00108029230 


00108029234 - 


00108029333 
0010:029430 
0010:029484 
0010029532 
001408029582 


00403009583 — 


0010202960 
00102029631 


00108029782 


00101029680 
0010:0298:0 
00103029631 
00104030133 
0010%030230 


001080305%3°7- 


00104030932 
00102030933 
00103034084 
00403031220 
00108031480 
00108031481 
0010:031831 
001020322:0 
001080326814 
0010:0326:1 
001031032634 
001010330380 
00101033312 
0010%0337:2 
00108033932 
0010%30343%2 
0010!0343%2 


00103034610 7 7 


0010%0346:0 
00103034614 


00108034712 °° 


oN 


O 


6 


S) 


IF OPERAND(16eR) AND R GEQ@ 42 AND R LEQ 15 
THEN BEGIN 
NEFEDCHECKAVATLNKSt=NOT AVALNKOK3 
PRINT¢OeR)3 
IF OPFRAND(107,PROWS) ANN PROWSS"EEEE"&"FEEE"£ 1825223) 


THEN 1F OPERANDCR+96ePROWS) AND PROWS NEQ "“EEFEE"&"EFER"(C1325223) 
THEN WRITECPEDBLIJ+ I TEM*OCTALCR) sOCTALCHIHALFCPROWSI=R4+96))» 


OCTALCLOHALFCPROWS)))3 
NONTPRINTLINKS &8*TRUES 
PRINT¢R41216)3 
END FLSE PRINT(O+36); 
DONTPRINTLINKS#sTRUES 
IF NOQUMP THEN ELSE 
IF MINLNK GTR DUMPDi=36 THEN 
BEGIN 
DUMPD?t=sMINLNK# 
WRITECPCLDBLJ9<X48e"MCP INTERRUPT LOCATIONS">);3 


PRINTC36#64)3 % INTERRUPT CODE 
WRITECPEDBLJe<X50e"MCP INTERRUPT STACK">)3 


PRINTC64e112)3 % INTERRUPT STACK 
WRITECPCDBLIe<X56e"MCP PRT">)3 


PRINTCL12¢PRTMAX4+1)3 % PRT 
1F NOT NOMCPCODE THEN 


IF CRISOUTERBLOCK(0))80 THEN PRINT(36eMINLNK) ELSE 


BEGIN 


WRITECPEDBLI5<X50,"MCP OUTER BLOCK CODE">)3 


PRINTCR,CFeR, FFe 123 & OUTERBLOCK 
ENDS 


DUMPMCPSAVECODECESP»sMINLNK)S & ANALYZE SAVE CODE 


END3 
DONTPRINTLINKS#sFALSES 
IF LNKSOK THEN 
DUMPMEMORYANDNOTESTACKS¢CMINLNK se OUMPD $=MAXLNK) 
ELSE 
BEGIN 
IF SOMOKF THEN 


‘DUMPMEMORYANDNOTESTACKS(DUMPD»sDUMPDI=MINBAD)3 


IF SOMOKB THEN 
BEGIN 
PRINTCOUMPDesMAXBAD)3 


DUMPMEMORYANDNOTESTACKS( MAXBAD »DUMPD*MAXLNK ) 3 


END} 
END}; 
ENDS % IF NOT COMMON 
PRINTCDUMPD »MAXCOR+1)3 
IF NODUMP THEN 
BEGIN 
NODUMPTOGIsTRUE3 
— COMMONS=COMMON AND NOT BOOLEAN(C384)3 
END: 
IF NOT COMMON THEN 
BEGIN 
LISTMCPROG} 
DUMPMCP NFO; 


RLO7™ 


R107" 


%107* 


4107" 


%106= 


94 


95 


96 


97 


1S 


1s 


1s 


1s 


02139000 
02140000 
02141000 
02142000 
02142100 
02142120 
02142200 
02142250 
02142260 
02142300 
02143000 
02143100 
02144000 
02445000 
02446000 
02147000 
02147500 


OHHH AA RAHA RA HHS 


8 LONGs 


02148000 
02148500 


tT 


C 


B LONGs 


02149000 
02149050 


T 
C 


6 LONGe 


02149100 
02149200 
02149300 
02149350 
02149360 


T 
T 
A 
T 
C 


8 LONGs 


02149400 
02150000 
02150010 
02150050 
02150075 
02151000 
02152000 
02153000 
02154000 
02155000 
02156000 
02157000 
02158000 
02160000 
02161000 


02162000 © 


02163000 
02163100 
02165000 
02165100 
02165110 
02165120 
02165130 
02165140 
02166000 
02167000 
02168000 
02169000 


AHAR ARH AHH NH HHT HH OOH 


00103034982 
0010:035133 
00101035332 


~~ 00108035430 


00103035782 
00108035933 
00102036383 
001030376t0 
00103038230 


0010:0383t2 


00103036631 
0010039084 
001080391%2 
00104039382 


00402039484 


00103039532 
00103039640 


NEXT SEG 10 


001080399%2 
00108040240 


NEXT SEG 10 


0010:0405t2 
00108040881 


NEXT SEG 10. 
00107041133 


0010!20445%2 
001030446:90 


00101042210 


00102042284 


NEXT SEG 10 
0010:042533 © 


00108043030 
0010043010 


00108043182 


004080431%2 
00103043230 
00108043230 
0040%0433%2 
00103043480 
00103043431 
00103043582 
00103043782 


0010:0437%2 © 


00103043733 
001010441382 
00108044284 
00103044234 
00103044234 


00108044284 


00102044610 
0010:044733 
00103044840 
0010:0448314 
00104045010 


00101045080 


00103045044 
001080451%2 


00103045280 ~ 


C% 


Ct) 


Om 


io 


QO 


Q 


GETSORTANDLISTINTRENSyCS3 02170000 0010:045234 
DUMPROGRAMS} 02171000 00103045382 
DUMPCONTROLSTACKS$ 02172000 0010045323 ~ 
PRINTSELECTEDARRAYS3 02172100 001030454!0 
DUMPAUXMEM$ 02172200 00103045484 
END; 02173000 0010%0455!2° °° 
FOPROG!:% 02173400 00103045532 
FILL COLLATEC*] WITH 02173500 001030455132 
06T0001020304050607s 02173510 00108045523" 


START OF SEGMENT 


T 
T 
T 
T 
T 
T 
T 
T 
T 
* 
T 
T 
T 
T 
T 
T 
T 
r) 


OK OK KK 9% 


cn 


iN 


oN 


0671011121314151617, 02173520 001080456314 
00T2021222324252627, 02173530 00108045684 
00673031323334353637>, 02173540 00103045614 
OCT4041424344454647, 02173550 00103045684 
0075051525354555657. 02173560 oofosogeesq— 
00T6061626 364656667» 02173570 00103045634 
00T70717273747576773 02173580 OOL0O456ty 
98 IS 8 LONGs NEXT SEG 10 
WRITECPCEPAGEI)3 02173590 T 00102045684 
WRITECP»COLHDR)} 02173600 T 00103046031 
FOR y#=0 STEP 1 UNTIL 7 DO 02173610 T 00108046333 
BEGYN 02173620 T 00108046532 
WRITECLINEC*IeCOLINE, 193 02173630 T 00103046532 
MOVECCOLLATECTIJsLINErizyeit)3 02173640 T 00308047312 “UOT 
WRITECPe2eLINEC*1)3 02173650 T 00408047512 
END$ 02173660 T 00101047932 
IF MULTI AND TOFID.£30948) GTR 4 THEN 02173700 T O010t048183°> =~ 
BEGIN 02173710 T 00101048333 
IF NOT REPEATING T 02173720 T 00108048430 
BEGIN 02173730 T 0010#048431- 
REPEATING: =TRUEY 02173740 T 0010:048532 
SPACECMDUMPse™ 4)LXXEXX]3 02173750 T 00103048533 
XXICLOSECMDUMP ex) 3 02173760 T 00101049112 --—" 
ENDS 02173770 T 001040493383 
FIXFIDS 02173780 T 00101049333 
RELOADt=sTRUES 02173790 T 00108049430 
PRINTCOMMONVALUES 3 02173791 T 00108049532 
WRITECPEDBLI)# WRITECPCDBLI)3 02173792 T 00103049533 
WRITECPeFINID3 02173793 T 0010!050333 
NEXTPAGE? 02173795 T 001080506814 
IF NODUMPTOG THEN BEGIN 02173796 T 00108051034 
NODUMPTOGItsFALSF} 02173797 T 00103054182 ~~ 
COMMONt=COMMON OR BOOLEANC384) END} 02173798 T 00108054210 
MYSTACKADRise13 02173799 T 0010051332 
GO RESTART? 02173800 T 00140:053,430 
END} 02173810 T 00403054434 
ENDs2 X22 2X ¥% FX FX ¥ END INNER BLOCK ¥%Rexx zy g 2% % 02174000 T 00403051484 
10 IS 518 LONGs NEXT SEG > 2 oc: 
PRINTCOMMONVALUES} 02174500 T 00021003810 


WRITECPCOBLIDSWRITECPEDBLI)3 02175000 T 00023003831 
WRITE CPsFINI)S 02176000 T 0002:004681 © 77 
END, 02178000 T 000213004933 
2 18 . 53 LONGs NEXT SEG 1 
1 1S 2 LONGs NEXT SEG moe ae 
. 107 IS 69 LONG» NEXT SEG 0 
NUMBER OF FRRORS DETECTrD = {, COMPILATION TIME = 202 SECONDS, 00597100 


PRT StZf = 3543 TOTAL SrGMFNT SIZE = 7971 WORDSS DISK SIZE = 360 SEGS3 NOs PGM, SEGS = 107 


ESTIMATED CORE STORAGE REQUIRED = 11551 WORDS; 


ESTIMATED AUXILIARY MEMORY REQU]RED 


NUMBER OF CARDeIMAGES PROCESSED = 


7 


— 
- 


3679» 


QO WORDS, 


cy 


Or 


XV1,0,122 MONDAY# 14/07/77» 10346 AM, 


DUMP /ANALYZE 


ee ST ee SS Oe mee ee ee ee ee 


SOURCE FILE# SYMBOL /DUMPANL 


we. STREAM VARIABLE = NAME PARAMETER =m DECLARED IN SEGMENT 29 AT 00586000 
w= STREAM VARIABLE =" NAME PARAMETER =e DECLARED IN SEGMENT 41 AT 00763470 
00763175 
A ose STREAM VARIABLE ==" NAME PARAMETER *= DECLARED IN SEGMENT 41 AT 00763190 
00763195 *00763205* 
A" REAL =" VALUE PARAMETER =" DECLARED IN SEGMENT 44 AT 00763290 
00763330 «00763335 
A '" STREAM VARIABLE ©" NAMF PARAMETER "* DECLARED IN SEGMENT 44 aT 00763300 
00763305 
A of ea neae VARTABLE == NAMP PARAMETER == DECLARED IN SEGMENT 41 AT 00763355 
0763360 
A == STREAM VARIABLE == NAME PARAMETER == DECLARED IN SEGMENT 45 AT 00763385 
00763390 
A == STREAM VARIABLE == VALUE PARAMETER = DECLARED IN SEGMENT 10 AT 00765000 
00766000 , 
A ee STREAM VARIABLE =" DECLARED IN SEGMENT 47 AT 00807170 
*00807200* 00807730 
A om" REAL ARRAY =" NWECLARED IN SEGMENT 50 aT 00817000 


A == STREAM VARTABLE ** NAMF PARAMETER == DECLARED IN SEGMENT 19 AT 00319000 
00320000 

A =~ STREAM VARTABLE == NAME PARAMETER == DECLARED IN SEGMENT 20 AT 00352000 
00353000 

A 

A 


00824110 00826990 00827000 00828000 00829000 00837000 00832100 00833000 00834100 00835100 


A "=" 'NTreeR =" DECLARED IN SEGMENT 74 aT 014524000 
#01559000%*01561000» 
A ose REAL ** DECLARED IN SEGMENT 77 AT 01703000 
017141000 *04742000*% 047143000 04719000 01721000 04731000 
A me REAL = DECLARED IN SEGMENT 79 AT 01757335 
04757505 04757530 01757590 014757730 01757820 01757960 
A =" REAL "* DECLARED IN SEGMENT 82 AT 01758200 


*01962000 «401965000 **01968000% 01989000 02004000 02005000 «02027000» 02028000 02029000 
+#02032000% 02033000 02034000 *02044000% 02045000 02046000 *02047000% 02048000 *02054000*« 02055000 


02031000 — 


02056000 


*02057000% 02058000 «02080000% 02081000 02082000 02083000 02084000 02085000 02086000 *02087000% 02088000 


*02101000* 02102000 02103000 02104000 *02105000* 02106000 

A ose REAL == NAME PaRAMETFR == DECLARED IN SEGMENT 82 AT 01814000 
01811000 01818000 04820000 *01824000* 04822000 

A =~ REAL = DECLARED IN SEGMENT 90 AT 02119320 

A =~ STREAM VARTABLE = NAME PARAMETER = DECLARED IN SEGMENT 90 AT 02119340 
02149350 

ACCIDENTRY = STREAM |,ABEL * DECLARED IN SEGMENT 70 AT 01371135 «= OCCURS AT 01371280 
01371230 

ACTUALPRTBASE = DEFINE == DECLARED IN SEGMENT 2 AT 00026000 
00089000 00270000 00792000 00293000 00913000 01392000 

ADATE *™ alPHA =" VaLUE PARAMETER “" DECLARED IN SEGMENT 10 aT 00463000 
00461000 00462000 00479000 

ADDRESS "=" INTEGFR "* VALUE PARAMETER =" pECLARED IN SEGMENT 10 AT 01349520 


of; 


oN 


01349500 04349510 01349560 01349600 01349610 01349630 01349690 


ADDRESS == STREAM VARTARLE "= VALUE PARAMFTFR ©" DECLARED IN SEGMENT 70 AT 01370530 


01370550 04370680 
ADR »= INTEGER = VALUE PARAMETER =" DECLARED IN SEGMENT 10 AT 00655000 
00653000 00654000 00658500 
ADR =" REAL == DECLARED IN SEGMENT 36 AT 00734000 
*00748000%« 00753000 
ADR »#" REAL = DECLARED IN SEGMENT 60 aT 01104000 
01135000 *01136000% 01168000 01168900 
ADR »*® Real = DPECLAREN IN SEGMENT 66 aT 01287000 
01292000 01294000 *«01295000* 01295100 01298000 
ADR =# STREAM VARVABLe em VALUF PARAMETER ew peclARep iN SEGMENT 10 AT 01349120 
04349430 041349560 
ADR w= {NTEGER == NAME PARAMETER = DECLARED IN SEGMENT 10 AT 01349520 
04349500 04349560 04349570 04349600 *01349640*% 04349630 04349640 074349690 
ADR = INTEGER =" DFCLARED IN SEGMENT 70 aT 01357000 
01444000 04447000 01465600 01469800 
ADR =" REAL @* DECLARED IN SEGMENT 74 aT 01531000 
*01618000% 01621000 01624000 01625000 01640000 04641000 01655000 01656000 
ADRR ™" REAL ©" DECLARED IN SEGMENT 36 aT 00735000 
AGAIN *™" LABEL 7" DrClLARED IN SEGMENT 47 aT 00807150 "= OCCURS aT 00807320 
00807410 
AIT =" INTEGER =" DECLARED IN SEGMENT 74 aT 01522000 
01588000 *04690000* 01695000 04696000 «01698300 
AL == STREAM VARTABLE =» VALUE PARAMETER *& DECLARED IN SEGMENT 29 AT 00576000 
00577000 00583000 
AL == BOOLEAN #* PECLARED IN SEGMENT 29 AT 00589000 
*00590000%*00594400%*00594300* 00594400 «00595000* 00642000 00644000 
ALINE =" REAL ARRAY = DECLARED IN SEGMENT 10 AT 00559000 
00640000 00643000 00644400 00645000 00646000 04465600 014466300 04466700 
01469800 *01469900% 01470000 
ALINE STREAM VARI ARLE @™ NaMe PARAMETER =" DECLARED IN SEGMENT 29 aT 00586100 
0586120 
AMAX == INTEGER =" yYALUE PARAMETER ©" ODrCLARED IN SEGMENT 10 AT 01335000 
01332000 04333000 04339000 04340000 
ANAME == REAL ARRAY w= NAME PARAMETER = pECLARED IN SEGMENT 2 AT 00044000 
00041000 00054000 00058000 
AQ =» STREAM VARIABLE == VALUE PARAMETER =» DECLARED IN SEGMENT 29 AT 00576000 
00577000 00579000 
AO = BOOLEAN =* DECLARED IN SEGMENT 29 AT 00589000 
*00591000%#00594500% 00594300 *00594400%«00595000* 00642000 00644000 
ARAY 7" REAL ARRAY = NAME PARAMETER *" DECLARED IN SEGMENT 10 AT 01226000 
01724000 01242000 01243000 01247000 *01248000* 


ARAY "=" REAL ARRAY "* NAME PARAMETER ©" DFCLARED IN SEGMENT 10 aT 01334000 


01332000 01342000 01344000 01345000 
ARFATYPe == Real aRRay =" ODrchaRep IN SEGMENT 10 aT 00295110 
*00295280*% 00593000 
ARGH "= DFFINE =" DFCLARED IN SEGMENT 140 aT 00164290 
00763445 00763470 
ARRAYSFILLED ==* BOOLEAN == DECLARED IN SEGMENT 1410 AT 00295115 
00295275 *00295990* 
ARROW == DEFINE =" DECLARED IN SEGMENT 10 AT 00113150 
01118100 01349480 01370230 01371420 
AT == STREAM VARIABLE = NAME PARAMETER =" DECLARED IN SEGMENT 10 AT 00536000 ~ 
00540000 
AT ™=  [NTFGER =" VALUE PARAMETER "= NECLARED IN SEGMENT 10 AT 00651200 
00651100 


04349700 


01468900 


01469100 01469200 ~ 


rT) 


cy) 


) 


O 


AT == 
AT == 
AT = 
AT = 
AT 
AT = 
ATP == 


ATTACHE 
AUX Ldhed 


AUXCODE 
AUXDATA 
AUXMEMM 
AUXMESS 
AUXTYPE 
AVAIL 
AVAIL 
AVATLM 
AVATLN 
AVAILT 
AVALNK 
AVALNKO 
AVL =" 
AVLBAN 


AVT ABLE 
Boe 


B mon 
B a 


B =e 


B - 


INTFGER 
00669000 
INTEGER 
00483000 
INTEGER 
00695000 
INTEGER 
00705000 
INTEGER 
01351000 
INTEGER 
01512000 
REAL ARR 
*00295700* 
DP = DEF 
FORMAT 
02119220 
=» §=6DEF! 
we «DEFT 
== 6DEFI 
we FORM 
02149230 
we REAL 


%00834400% 02149490 


em NEFINE 
00967000 
=© STREAM 
01116700 
we INTEG 
*00997000x 
me INTEG 
*#00995000« 
== INTEG 
*00996000x 
on BOOLE 
00594000 
K == B00 


*00978000% 00989000 #00991000««00992000%%01026000% 01032000 *01037000x 04051000 


FORMAT 
01057000 
== FORMA 
01056000 

"* DFFI 

DEFINE =m 
01151000 
STREAM VAR 
00320000 
STREAM VAR 
00396000 
STREAM VAR 

REAL = 


#00763505* 00763510 *00763525* 00763530 «00763535* 00763540 *00763595* 00763600 


STREAM VAR 
00763200 
STREAM VAR 
00763305 

REAL #2 


w= VALUp PARAMETER =" pECLARED tN SEGMENT 10 AT 00671000 
00670000 00675000 

ee VA|UE PARAMETER == DECLARED IN SEGMENT 10 AT 00685000 
00684000 00689000 

we VALUE PARAMETER == DECLARED IN SEGMENT 10 AT 00697000 
00696000 00701000 
me VALUF PARAMETER *" DECLARED IN SEGMENT 10 AT 00707000 
00706000 00711000 

wm VaLUE PARAMETER ™" MECLARED IN SEGMENT 10 aT 01352000 
"= VALUE PARAMETFR ™" WECLARED IN SEGMENT 10 AT 01514000 
01513000 01516000 01517000 

AY == DECLARED IN SEGMENT 19 AT 00295110 

04169400 

INE == DECLARED IN SEGMENT 10 AT 001364230 


w= DECLARED IN SEGMENT 89 AT 02119120 


NE = DECLARED IN SEGMENT 10 AT 00164120 
NE == DECLARED IN SEGMENT 10 AT 00164110 
NE = PECLARED IN SEGMENT 10 AT 00110000 
AT =" DFCLARED IN SEGMENT 89 AT 02119130 


NECLARED IN SEGMENT 10 AT 00082050 
02119220 024119230 
DECLARED IN SEGMENT 10 AT 00425000 


01026000 


LABEL om 


ER wm 
01035000 
ER oe 
01033000 
ER on 
01034000 
AN om 


DECLARED IN SEGMENT 60 AT 01115800) &* 


01055000 
01053000 


01054000 


00644400 *01151800**01152100* 
DECLARED IN SEGMENT 10 aT 00498000 


LE AN C Red 


DECLARED IN SEGMENT 56 AT 00949000 
DECLARED IN SEGMENT 56 AT 00949000 
DECLARED IN SEGMENT 56 AT 00949000 
DECLARED IN SEGMENT 10 AT 00559100 


"=" DECLARED IN SEGMENT 57 AT 00960000 


DECLARED IN SEGMENT 19 AT 00319000 
DECLARED IN SEGMENT 10 AT 00395000 


T =" DECLARED IN SEGMENT 57 at 00959000 
Ne o#= necbaRrp rN SEGMENT 10 aT 00164150 
DECLARED IN SEGMENT 4° AT 00443160 

04151500 04167000 04469500 01469700 
TABLE =" NAME PARAMETER) = 

IABLE == VALUE PARAMETER o® 

00398000 

1ABLE == NAME PARAMETER em» 


DECLARED IN SEGMENT 29 AT 00586000 


DECLARED IN SEGMENT 41 AT 00763140 


DECLARED IN SEGMENT 41 AT 00763190 


DECLARED IN SEGMENT 44 AT 00763300 


TABLE ==" VALUE PARAMETER) #™ 
TABLE == NaAMP PARAMETER we 
VALUE PARAMETER: == DECLAREnN IN SEGMENT 41 aT 00763375 


OCCURS AT 01118600 


*01052000««02120410x 02141000 


00763605 *00763610* 00763615 


( 


‘o) 


Ce Oe Sie “8S. an 


ir. “XD 


Cr soe 


( 


Boe 
Be 
Boe 
B as 
Boo=- 


B mo 


BAD = 
BANBEN 
BADCLOC 
BADCOMM 
BADDATE 
BADEOF 
BADINTO 
BADLOoC 
BADLQUE 
BADLQUE 
BADPRIM 
BADPRT 
BADPRT 
BADSAVE 
BADSDES 
BADSIZE 
BADTM 
BADXCLO 


00763410 00763420 
SIREAY VARIABLE == NAME PARAMETER =m OECLARED IN SEGMENT 45 AT 00763385 
763390 a 
BOOLEAN # DEC; ARED IN SEGMENT 46 AT 00771000 
*00786000* 00787000 
STREAM VARIABLE ** DECLARED IN SEGMENT 47 AT 00807170 
*00807210" 00807230 
BOOLEAN =" DECLARED IN SEGMENT 58 AT 03068000 
*01082000% 01095000 
ROOLFAN =" VALUE PARAMFTER »*" DECLARED IN SEGMENT 10 AT 01252000 
01259500 
BOOLFAN #*" DECLARED IN SEGMENT 79 AT 04757330 
*014757710% 01757740 04757750 041757770 
STREAM VARIABLE == VALUE PARAMETER e# DECLARED IN SEGMENT 82 AT 04765000 
01766000 041768000 
BOOLEAN ==" VALUE PARAMETER = DECLARED IN SEGMENT 82 AT 01814500 
01811000 01812000 01816000 
STREAM LABEL w=" DECLARED IN SEGMENT 46 AT 00771105 *= OCCURS AT 00771140 
00771130 
LABEL =" DECLARED IN SEGMENT 52 AT 00875000 "= OCCURS AT 00894000 
00885000 00887000 00889000 00892000 
FORMAT ™" DFeLARED IN SEGMENT 57 AT 00957000 
01051000 01060000 
“= FORMAT ™" DECLARED IN SEGMENT 23 aT 00446000 
00773000 
K == FORMAT = DECLARED IN SEGMENT 24 AT 00449000 
00797000 
ENT == BOOLEAN = DECLARED IN SEGMENT 10 AT 00808000 
*00824000%«*00824020%«008360004«02120435% 02130000 
"= FORMAT ®** DECLARED IN SEGMENT 24 AT 00447000 


00775000 

wm FORMAT "= DECLARED IN SEGMENT S4 aT 00814000 
00866000 

== FORMAT == PMECLARED 1N SEGMENT 67 AT 01288100 
043140400 

== FORMAT »== DECLARED IN SEGMENT 64 AT 01257100 
04280300 

we FORMAT == DECLARED IN SEGMENT 84 AT 01774120 
02117550 
NTRY == FORMAT * = DECLARED IN SEGMENT 84 AT 01774110 
02117520 


ARY ** FORMAT = DECLARED IN SEGMENT 57 AT 00958000 ‘ 
00999100 01007000 01022000 
mm FORMAT "" DECLARED IN SEGMENT 38 aT 00741000 
00747000 ; 
me FORMAT "= DECLARED IN SEGMENT 53 aT 00879000 
00894000 
PRTLOC == INTEGER =" DECLARED IN SFGMENT 10 AT 01251500 
01280300 «02120015 . 
C =" FORMAT 8 DECLARED IN SEGMENT 76 AT 014536000 
01689000 
e= FORMAT *" DECLARED IN SEGMENT 76 AT 01535000 
01689000 
"= LABEL @™* DFCLARED IN SEGMENT 50 aT 00813000 "= QCCURS AT 00866000 
00824210 00826990 00827000 
cK == FORMAT «© DECLARED IN SEGMENT 24 AT 00448000 
00781000 


{\ 


fc) 


‘a 


cs 


BASE 
BED 


BEDDED 


BEDSTK 


BITON 


BITON 


BLINE 


BLINE 


BOS 


mm INTEGER ewe VALUE PARAMETER == ODFCLARED IN SEGMENT 2 AT 00043000 


00043000 00042000 00054000 00057000 00058000 
DFFINE = DECLARED In SEGMENT 10 AT 00129000 
00720000 04076000 
“= BOOLEAN =" DECLARED IN SEGMENT 60 AT 01101000 
*01194000* 01195000 *01496000* 01199000 
me INTEGER ** DECLARED IN SEGMENT 10 AT 00095000 
*01987000« 01088000 01089000 01195000 01383000 01714000 01715000 01737000 
w= ROOLFAN STREAM PROCEDURE "=" pDFCLARFD IN SEGMENT 10 AT 00395000 
*00400000%« 00401000 00411000 
ww ROOLFAN STREa~aM PROCEDURE == pecbaRep IN SEGMENT 82 aT 01765000 
*01770000x 01862000 01944000 04924000 019614000 074964000 04967000 
=e REAL ARRAY eo DECLARED IN SEGMENT 70 AT 00559050 
00644400 00644500 
me STREAM VARIABLE = NAME PARAMETER #* DECLARED IN SEGMENT 29 AT 00586100 
0586110 
INTEGER =" DFCLARED IN SEGMENT 70 aT 01357000 
*01377000% 01378000 *01379000* 01391000 01401000 01404000 01405000 01412000 
01456000 *01457000« 01457140 01458000 01465400 01466000 


BREAKOUT "=" DEFINE = NnECLARED IN SEGMENT 10 AT 00097000 


BUF 


BUTLD 


Real ARRAY 7" DFCLARFD IN SEGMENT 8 aT 00047000 
00053000 00054000 00058000 00059000 
we STREAM PROCENURF == DECLARED 1N SEGMENT 29 AT 00576000 
00585000 00640000 00643000 


BUILDHEADER == STREAM PROCEDURE = DECLARED IN SEGMENT 60 AT 01145300 


BUMPI 


01121900 04151000 014168600 04169100 01169400 
=" DEFINE =" pECLARED IN SEGMENT 41 AT 00763150 
00763415 00763515 00763560 


BUSTCOMMON *" PROCEDURE =" DECLARED IN SEGMENT 2 aT 00040100 


C 
C 
C 
¢ 
¢ 


B6500L0 


=a 


ee 


= 


| ted 


00040300 00061000 

AD 7" WEFINE =" nechaAREN IN SEGMENT 10 aT 00110200 

STREAM VARIABLE "= VALUE PARAMETER =*™ DECLARED IN SEGMENT 6 AT 00040150 
0040160 

erent VARIABLE =" VALUE PARAMETER #" DECLARED IN SEGMENT 6 AT 00040470 
0040180 

INTEGER == DECLARED IN SEGMENT 32 AT 00674000 

*00675000*« 00679000 

INTEGER == DECLARED IN SEGMENT 33 AT 00688000 

*006B89000* 00692000 

STREAM VARIABLE = VALUE PARAMETER «= DECLARED IN SEGMENT 41 AT 00763190 

REAL =* ODECLARFD IN SEGMENT 45 AT 00763380 

*00763410% 00763415 

STREAM VARIABLE == VALUE PARAMETER @#*" DECLARED IN SEGMENT 46 AT 00774100 
00771115 

STREAM VARIABLE == VALUE PARAMETER »#* DECLARED IN SEGMENT 10 AT 01325000 
01376000 04330000 

INTEGER == NAMF PARAMETER == DECLARED IN SEGMENT 10 AT 04352000 

01351000 

FORMAT == DECLARED IN SEGMENT 71 AT 01370010 

01446000 

STREAM VARIABLE = VALUE PARAMETER .©= DECLARED IN SEGMENT 70 AT 01370020 
01370030 01370170 

INTEGER =" NAMF PARAMETER ** DECLARED IN SEGMENT 10 AT 01514000 

01512000 *01517000% 

INTEGER @™" DECLARED IN SEGMENT 74 AT 04522000 

01592000 01593000 01597000 01601000 01606000 01607000 

INTEGER *™ DECLARED IN SEGMENT 79 AT 01757332 


01738000 *02120240« 


01418500 *01454000**01455000*% © ~~ 77 


ray 


rN 


(} 


Cs 


*O01757410% 01757600 


Cc =" INTEGER DECLARED IN SEGMENT 82 AT 014758300 
*02117500% 02117510 02117520 02117540 
CC "= REAL ARRAY ** DECLARED IN SEGMENT 44 aT 00763160 
00763515 
CC == REAL ARRAY &™ NAME PARAMETER ™" DFCLARED IN SEGMENT 41 AT 00763290 ’ 
*00763330% 00763345 , 
ccoMaSK1 ©" DEFINE @" DFCLARFD IN SEGMENT 19 AT 00164360 
01757450 
COMASK2 ©= peFrNEG ©" prcbLaRrp rN SEGMENT 39 aT 00164365 
01757455 
CD ee DEFINE DECLARFD IN SEGMENT 70 AT 04363000 
04406000 014443000 
CF «= DEFINE DEC),ARED IN SEGMENT 10 AT 00116000 
00359000 00662000 00665000 00744000 00763036 00763450 00807350 00807370 
00928000 00929000 00967140 00967150 00972000 00972400 00976100 00976300 
01014000 01036000 01044000 04056000 01079000 04127000 01134000 04136000 
01167700 04168600 04368700 01169000 01169200 04169500 04169550 04497000 
014270000 04272000 04273000 04283620 01281640 04284650 04281660 071281760 
04300000 04303000 04304000 043146000 04349000 04342000 04345000 0;,349570 
01439000 071444000 04448000 04465400 04465600 04466000 04466300 04467700 
01547000 04544000 04557000 04609100 041643000 04623000 04627000 04634000 
01684000 01712000 04718000 01757505 01757845 04757870 01757895 04757960 
02007000 02129410 02129140 02149400 
CHANNEL &" DEFINE @*" DECLARED IN SEGMENT 10 aT 00140000 
02117100 
CHECKFORLARELDESCRIPTOR == DEFINE =" DECLARED IN SEGMENT 52 AT 00876000 
00885000 00887000 00889000 00892000 
CHECKFORPROGRAMNESCRIPTOR *™ NEFINE ™" DECLARED IN SEGMENT 52 aT 00878000 
00892000 
CHECKLINK == DEFINE == DECLARED IN SEGMENT 40 AT 00098000 
CHECKMEMORYLINKS = PROCEDURE = DECLARED IN SEGMENT 10 AT 00944000 
02125000 
CHECKPRTFILE == PROCENURE =" DECLARED IN SEGMENT 10 AT 00870000 
00895000 00907000 
CHRS =» REAL STREAM PROCEDURE =e DECLARED IN SEGMENT 10 AT 00536000 
00541000 00543000 00547000 005514000 00689000 00692000 01516000 04517000 
CIDROW "™ DEFINE ** DECLARED IN SEGMENT 10 aT 00164285 
Ch = INTFGER =" DECLARED IN SFGMENT 74 AT 01529000 
CLOCK ©" PEFINE =" pECLARED IN SEGMENT 10 at 90415000 
00796000 00799000 
CLOCX =" PMEFINE =" pFCLARED IN SEGMENT 10 AT 00432000 
00799000 00800000 00804000 00803000 
CODE == INTEGER »» VALUE PARAMETER © DECLARED IN SEGMENT 10 AT 01757310 
04757300 0147574010 *047574475* 04757420 01757550 
COL e* DEFINE == DECLARED IN SEGMENT 10 AT 00119000 
00547000 00551000 00606000 00608000 00615000 00617000 00640000 00641000 
00763595 00774000 00777000 00780000 00783000 00796000 00799000 04149000 
01561000 01757600 01757875 01978000 02038000 02040000 02129180 
cOLHDR =" FORMaT *™* prcLARFn IN SEGMENT 92 aT 02119500 
02173600 
COLING == FORMAT = DECLARED IN SEGMENT 92 aT 02119510 
02173630 
COLLATE == REAL ARRAY == DECLARED IN SEGMENT 10 AT 02419600 


*02173500* 02173640 
COMINFO = SWITCH FORMAT == 
00017200 
COMMON "= BOOLEAN =" 


DECLARED IN SEGMENT 4 AT 00017030 


DECLARED IN SEGMENT 2 AT 00003900 


00863120 
00984000 
01149000 
01242000 


04295000 


01349640 
01468300 
01643000 
01821000 


00918000 


00985000 © 


01164100 
01243000 


04298000 


04375000 
01468450 
01677000 
01973000 


00643000 00675000 


01516000 


01517000 


009149000 
00988000 
01167200 
01262000 
04299100 
04396000 
01469800 
014683000 
02006000 


00689000 
01559000 


ov 


Gobet eas 
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Or 
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, 


o 6 
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~, 


} 
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00040230 00040240 00064000 00590000 00591000 00592000 00772000 00785700 


00794000 00795000 00807280 


*00807290% 00807350 *00807430% 00807520 *00837055* 00839000 00854000 *00904500* 00905000 10908000 00910000 


00920100 00930400 00937500 00938000 01151100 04151900 01452000 04164900 


01210000 01211000 04213300 


01284720 01281780 04281835 01281855 04757770 04757840 01856400 *04856200*«021148400*% 02119244 *02119245% 


02119250 *02119955% 02122050 02122100 021423000 02129050 02437100 07438000 
02144000 02148000 02149000 02149400 02149200 021449300 02149400 021460000 
02166000 *02173798« 


COMMT == Real ARRAY e = pECLARED IN SEGMENT 40 at 00717000 


00824210 00835000 00835400 00837050 02132000 02433000 02434000 
COMMT **" STREAM VARTARLE =" NAME PARAMETER ** DECLARED IN SEGMENT 50 AT 00822100 
00822120 
COMNT =" BOOLEAN &* DECLARED IN SEGMENT 10 aT 00717000 
*00824000**00837000*% 02128000 
COMNTPAR 7" FORMAT ®* PECLARED IN SEGMENT 49 AT 00809000 
02130000 
COMPAREWORnNS =" BOOLEAN STREAM PROCEDURE "* DECLARED IN SEGMENT 10 AT 00560000 
*00567000% 00649000 
COMSAVE == BOOLEAN em DECLARED IN SEGMENT 47 AT 00807140 
*00807280% 00807430 


COMSAVE e= BOOLEAN =» DECLARED IN SEGMENT 8p AT 04758500 


oa *01856100% 02118700 
COMSAVE == BOOLEAN = DECLARED IN SEGMENT 88 AT 02119142 
*02119244% 021192955 
CONTROLDESC =" BOOLEAN PROCEDURE == DECLARED IN SEGMENT 10 AT 00705000 
*00711000% 00714000 00863110 01164300 01164500 01166300 01166400 073402000 
01467700 01609100 
cONY 7" STREAM PROCENURF @™" DECLARED IN SEGMENT 27 AT 00469000 
00479000 
CONVERTtT = DEFINE w= DECLARED IN SEGMENT 40 AT 01349010 
04349230 014349970 074349300 
CORE s= DEFINE =" DECLARED IN SEGMENT 10 AT 00164370 
009671900 00967120 00967130 00967180 
CTABLE = OEFINE * = DECLARED IN SEGMENT 10 AT 00164200 
CTC w= DEFINE == DECLARED IN SEGMENT 10 AT 00117100 
01757415 
CTF *" DEFINE *= DECLARED IN SEGMENT 10 AT 00117000 
01266000 01299100 01742140 01985300 
CUTBACK @" LaREL *™" DECLARED IN SEGMENT 70 aT 01362000 *" OCCURS AT 01404900 
01414000 
D =" STREAM VARIABLE © NAME PARAMETER " DECLARED IN SEGMENT 2 AT 00036000 
00037000 
Do" REAL "= DECLARED IN SEGMENT 6 AT 00040120 
*00040230% 00040040 
D == STREAM VARIABLE ** VALUE PARAMETER ©" DECLARED IN SEGMENT 6 AT 00040700 
00040210 
D =" REAL *" DECLARED IN SEGMENT 27 AT 00466000 
00479000 00482000 *00486000* 00489000 *00492000* 00493000 
D *™ STREAM VARIABLE °'" NAME PARAMETER * DECLARED IN SEGMENT 10 AT 00560000 
00564000 
D o= = STREAM VARY ABLE == VaLUF PARAMETER #= DECLARED IN SEGMENT 44 AT 00763190 


“OD == STREAM VARIABLE =e NAME PARAMETER =. DECLARED IN SEGMENT 50 AT 00818000 


00850000 

D == STREAM VARIABLE *= NAME PARAMETER == DECLARED IN SEGMENT 62 AT 01231000 
01234000 

D == STREAM VARIABLE ==" NAME PARAMETER == DECLARED IN SEGMENT 10 AT 01325000 
01329000 


~D =" STREAM VARIABLE == NAME PARAMETER *™* DECLARED IN SEGMENT 10 AT 01750000 


02142000 02142300 02443000 


02165000 02165400 «02165130" ~~ 


01406000 01465400 01466100 


ey 


C 


} 


O 


CO) 


5 


(Sa > ae ee © 


CO 


01754000 
DALOC "™ HEFINE ** pECLARED IN SEGMENT 10 aT 00164180 
DASHES "" FORMAT **" DFCLARED IN SEGMENT 55 aT 00901000 
00922000 
DAT =" STREAM VARIABLE &™ VALUE PARAMETER =" DECLARED IN SEGMENT 27 AT 00469000 
00470000 00472000 
DATACOM = DEFINE =" nECLARED {N SEGMENT 10 AT 00099000 
01123000 014985,00 
DATE =" DFFINE == DFCLARED IN SEGMENT 10 aT 00444000 
00495000 00774000 00777000 
DATEANALYZED em DEFINE = DECLARED IN SEGMENT 10 AT 00421000 
00791000 00793000 
DATES == PROCEDURE == pECLARED IN SEGMENT 10 AT 00461000 
00778000 007914000 
DATETAKEN = prFINE «= DpECLAREN IN SEGMENT 10 AT 00423000 
00778000 00788000 
DATIME = PROCEDURE . == DECLARED IN SEGMENT 40 AT 00770000 
00908000 00937000 
DATX == DEFINE == DECLARED IN SEGMENT 40 aT 00430000 
00777000 00778000 
DAY em INTEGER == NAME PARAMETER == DECLARED IN SEGMENT 10 AT 00464000 
00461000 *00493000* 
DAY = STREAM VARIABLE =" NAME PARAMETER =» DECLARED IN SEGMENT 27 AT 00469000 
00475000 
DAYS ** ONMEFINE "=" DFCLARED IN SEGMENT 10 aT 00428000 
00778000 00788000 00791000 00793000 
DAYTABLE = Real aRRay =" DECLARED IN SEGMENT 27 aT 00468000 
#00477000% 00489000 00493000 
DBARRAY "= DEFINE ©" DECLARED IN SEGMENT 10 AT 00164220 
DBLSAVE =* BOOLEAN em nMECLARED IN SEGMENT 47 AT 00807140 
*0080729S5* 00807435 
DC = DEFINE == DECLARED IN SEGMENT 60 AT 04110000 
01125000 
DCHIT == BOOLEAN © DECLARED IN SEGMENT 60 AT 014109000 
*01146000**01164900% 01168300 01202000 
DCLOG »" NEFINE ©" pECLARED IN SEGMENT 10 AT 00100000 
DC@ARA "=" DEFINE ™*" DECLARED IN SEGMENT 10 aT 00164250 
DCQPTSTACK =" DEFINE =" DECLARED IN SEGMENT 10 AT 00163000 
DCQPTSTACK =" REAL == PECLARED IN SEGMENT 60 AT 01108000 
01125000 01131000 
DCOPTSTACKV = REAL =" DECLARED IN SEGMENT 60 AT 01108000 
01125000 04426000 *04427000% 04428000 01179000 07364200 
DCSPO == PEFINE * DECLARED IN SEGMENT 40 AT 00101000 
DCSTACK = BOOLEAN ==» DECLARED IN SEGMENT 60 AT 04109000 
*01125000*% 01168300 01202000 
OCV =" DEFINE *= DECLARED IN SEGMENT 60 AT 01110000 
04125000 04126n00 01127000 01128000 01129000 01164200 
DC19Q =" NEFINE *" pECLARED IN SEGMENT 10 AT 00164325 
01985200 
DERUGGING =" DEFINE ©" DECLARED IN SEGMENT 10 aT 00102000 
DECOCT = STREAM PROCFDURE "= DECLARED IN SEGMENT 6 AT 00040200 


00040240 

DEFINFOMIXMAX ee DEFINE = DECLARED IN SEGMENT 10 AT 00120000 
00746000 

DELTA == OEFINE == DECLARED IN SEGMENT 70 AT 01364000 
01408000 


DESCRIPTOR == BOOLEAN PROCEDURE -=* DECLARED IN SEGMENT 10 AT 00683000 


Cc 


CT 


{\ 


*00691000e 00694000 00701000 00711000 00885000 00887000 00889000 00892000 01081000 
01281610 01292000 01468200 01468400 01469500 04540000 01556000 04612000 01711000 
DFX =" DEFINE @* DpDeebLARED IN SrGMENT 10 ar 00103000 
00807550 02117455 
DIRFCTORYBU;LDER == OFFINE == DECLARED IN SEGMENT 19 aT 00162000 
00891000 
DIRECTORYFREE == DEFINE =" DECLARED IN SEGMENT 10 AT 00464300 
DISK = FILE DEC|.ARED IN SEGMENT 2 AT 00016500 
00053000 00067000 00763145 00844000 00849000 00849100 
DISKLOG "=" DEFINE ™" DECLARED IN SEGMENT 10 AT 00104000 
DISKOUNT ** DEFINE "=" NECLARED IN SEGMENT 10 AT 00164380 
02117150 
DISPLAY ** DEFINE 7" PECLARED IN SEGMENT 10 AT 00668100 
00720000 00721000 00722000 00723000 00724000 00725000 00726000 00727000 00728000 
00763028 00763470 00807270 00964000 00965000 00966000 00967000 00967180 01279000 
01723000 04733000 01757434 01757436 01757440 04757450 01757455 04757470 01816000 
01949200 01920900 01971000 01987000 01988000 02064500 02065000 02117150 02117160 
orSPLaY1T == PROcErDURF DeclbaREp IN SEGMENT 10 aT 00653000 
00468000 00720000 00721000 00722000 00723000 00724000 00725000 00726000 00727000 
00730000 00763028 00763470 00807270 00807370 00964000 00965000 00966000 00967000 
01281850 01310000 01723000 01733000 01757434 04757436 01757440 04757450 01757455 
01857000 019418200 01919200 01920000 01971000 01987000 01988000 07064500 02065000 
02117430 
DONTDUMPRT =» neriNe == prcLARrp 1N SeaMenT 2 at 00009000 
00904500 00908000 00940000 00920100 00930400 
DONTPRINTLINKS BOOLEAN = DECLARED IN SEGMENT 2 AT 00048000 
00644310 #021449060**02143100k409150075% 
DOUBLFSPACE: e* DEFINE == DECLARED IN SEGMFNT 2 AT 000049200 
00692000 00645000 00807295 00807300 00807435 
DP == STREAM VARIABLE «== VALUE PARAMETER DECLARED IN SEGMENT 10 AT 01395000 
04326000 04329000 
DUMMY » DEFINE e#* pECLARED IN SEGMENT 10 AT 001464999 
DUMPA,,PHAOCTAL DEFINE == DECLARED IN SEGMENT 2 AT 00011000 
00591000 
DUMPALPHAONLY 7" DEFINE =" DECLARED IN SEGMENT 2 AT 00012000 
00590000 
DUMPARRAY =" PROCEDURE DECLARED IN SEGMENT 10 AT 00763020 
00763048 01919400 
DUMPAUXMEM =" PROCEDURE =" DECLARED IN SEGMENT 10 AT 02119100 
02119290 02172200 
DUMPAVATL == DEFINE =» DECLARED IN SEGMENT 2 AT 00005000 
01151900 
DUMPCESSPO0), == PROCEDURE = DECLARED IN SEGMENT 10 AT 00763100 
00807899 02122300 
DUMPCESSPOOLONLY = DEFINE = DECLARED IN SEGMENT 2 AT 00013000 
00904500 00937500 02122100 
DUMPCONTROLSTACKS =" PROCEDURE =" DECLARED IN SEGMENT 10 AT 01700000 
02172000 
DUMPD ="  NTEGER &* pECLARED IN SEGMENT 10 aT 902120000 


*02420245 %%02145000%402147000%«02152000%%02156000% 02160000 *02461000*% 02165000 


DUMPIT ==" LAREL =" NMECLARED IN SEGMENT 70 ArT 01360100 =* OCCURS AT 01457100 
01381100 

DUMPMCPTNFO == PROCEDURE @= DECLARED IN SEGMENT 10 AT 01758000 
02169000 

DUMPMCPSAVECODE == PROCEDURE = DECLARED IN SEGMENT 10 AT 01281500 = FORWARD AT 01096500 
01213100 04281910 02150010 


DUMPMCPSPRT = PROCEDURE = DECLARED IN SEGMENT 10 AT 00896000 


01260000 
01618000 


00729000 
01281850 
01857000 
02117430 


00728000 
00967180 


“01757470 


02117150 


01268000 


00730000 


01310000 


01918200 


00729000 
01279000 


01816000 ~ 


02117160 
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02122000 
DUMPMFMORYANDNOTESTACKS == PROCEDURE °* DFCLARED IN SEGMENT 10 AT 01097000 
02152000 02156000 02161000 
DUMPOCTALONLY =" DEFINE ™" PECLARED IN SEGMENT 2 AT 00010000 
00592000 
DUMPP == DEFINE ©" PECLARED IN SEGMENT 10 AT 001405000 
DUMPROGRAMS = PROCEDURE == DECLARED IN SEGMENT £0 AT 014520000 
02171000 
DUMPSTACK =" PROCEDURE e# DECLARED IN SEGMENT 140 AT 01353000 
01696000 01708900 01726000 01734000 01740000 01742160 
DUMPTABLES ** DEFINE =" DECLARED IN SEGMENT 2 AT 00008000 
00807520 
DUPBEN "* FORMAT & = DECLARED IN SEGMENT 59 aT 01069000 
01084000 
D32 =" STREAM VARIABLE *= Va~LUp PARAMETER =" DECLARED IN SEGMENT 62 aT 01231000 
01232000 04235000 
E == STREAM VARIABLE «= NAMF PARAMETER = DECLARED IN SEGMENT 41 AT 00763190 
00763195 
EDDIBUNE eo LABEL \= DECLARED IN SEGMENT 29 AT 00589100 = OCCURS AT 00637100 
6190100 
EF = LABEL ==" DECLARED IN SEGMENT 50 AT 90812010 
EOQU e= LABEL = DECLARED IN SEGMENT 414 AT 00763165 == OCCURS AT 00763570 
00763455 00763480 00763495 00763505 
EOPROG "= LABEL °°" NECLARED IN SEGMENT 10 AT 00080400 = OCCURS AT 02173400 
00866000 00867000 00868000 02122400 
FE9T =" bagelb ©" DECLARED IN SEGMENT 50 aT 00812005 == OccURS AT 00838000 
00835000 00837400 
ERRMESS =" DEFINE =" DECLARED IN SEGMENT 52 AT 00881000 
00893000 00894000 
ERROWT == LABEL =" NpECLARED IN SEGMENT 70 AT 04360000 w= OCCURS AT 01510000 
01381000 
ESP * INTEGER ee DFCLARED IN SEGMENT 10 aT 01222000 
*01262000% 014263000 01266000 04270000 01281620 *02120210% 02450010 
ESPBIT ** DEFINE ™* DECLARED IN SEGMENT 10 aT 00124000 
01260000 01264000 01281620 
EUIO =" OFFINE =" DECLARED IN SEGMENT 10 aT 00164130 
FUQ =" DEFINE *= DECLARED IN SEGMENT 10 AT 00164280 
00807550 02117200 
EUN =" OFFINE = DECLARED IN SEGMENT 10 AT 00164390 
02417160 ; ' 
EXIT == LABEL = DECLARED IN SEGMENT 54 AT 00904100 == OCCURS AT 009341100 
00920100 00930400 
EX1T == LABEL =" DECLARED IN SEGMENT 68 AT 01338000 = OCCURS AT 01348000 
01346000 


EXIT =" STREAM LABEL * DECLARED IN SEGMENT 10 AT 01349160 == OCCURS AT 01349470 


01349370 04349374 01349460 
EXIT == STREAM LABEL @* DECLARED IN SEGMENT 10 aT 01753000 = OCCURS AT 04757000 


01755000 

EXIT ™" LABEL ™" OFRFLARED IN SEGMENT 88 AT 02119140 =" OCCURS AT 02119280 
02119160 

EXrT == LABEL =" DECLARED IN SEGMENT 93 AT 02120130 "= OCCURS AT 02120700 
02120135 


EXPAND == STREAM PROCFDURE = DECLARED IN SEGMENT 29 AT 00586100 
00586140 00644400 

Fo == FORMAT = DECLARED IN SEGMENT 7 AT 00040140 
00040270 

Fo om= FORMAT == DECLARED IN SEGMENT 40 AT 00763026 


e) 


FIXFID 


FIXLINE 


00862000 


w= PROCEDURE «= 


02173780 


== STREAM PROCEDURE == 


00807250 


00807380 


DECLARED IN SEGMENT 


DECLARED IN 


00763042 
Foe= FORMAT *" DECLARED IN SEGMENT 55 aT 00902000 
00935000 
Fo-* FORMAT #* pECLARED IN SEGMENT 64 aT 01258000 
01277000 
Foo== FORMAT = DECLARED IN SEGMENT 67 AT 01289000 
04311000 
Foe INTEGER == NAME PARAMETER == DECLARED IN SEGMENT 10 AT 01352000 
01351000 
Foo== STREAM VARIABLE =#=* VALUE PARAMETER #* DECLARED IN SEGMENT 70 AT 01370020 
01370030 01370120 , 
Foe STREAM VARIABLE =" VALUE PARAMETER #=* DECLARED IN SEGMENT 70 AT 01370760 
01370270 01370350 
Fo oe* INTEGER =©* NAMF PARAMETER =" DECLARED IN SEGMENT 10 AT 01514000 
015142000 *01517000**01518000* 
Fo" INTEGER DECLARED IN SEGMENT 74 AT 01522000 
01576000 01577000 01580000 01584000 01588000 04592000 04593000 04597000 
FA "=" REAL ** DECLARED IN SEGMENT 82 AT 01773000 
02069000 02112000 02113000 02117450 02117460 02117490 
FANAL =" FORMAT ®**" YHECLARED IN SEGMENT 22 AT 00444400 
: 00785550 
FCOMVaL = FORMAT =" DECLARED IN SEGMENT 22 AT 00444300 
00785700 
FCORE °°" FORMAT =" nFCLARED IN SEGMENT 57 Ar 00956100 
00967120 
FF "= DEFINE DECLARFD IN. SEGMENT 10 aT 00115000 
00327000 00329000 00666000 00863120 00918000 00919000 00928000 00929000 
00982000 00996000 00997000 01015000 01018000 01030000 01047000 04048000 
01151500 01164000 01164400 01164600 01166300 04166500 04468600 04169100 
01281860 01302000 01317000 01320000 01342000 01349580 01349650 04377000 
01465400 01465500 01466000 01468300 01468400 045148000 01609200 04618000 
01683000 01684000 01684100 01695000 01721000 01757410 01984000 02008000 
FF o™* STREAM PROCEDURE NecbLaREp IN SEGMENT 44 aT 00763300 
00763320 00763345 
FILETYPe == DEFINE = neECcLARED IN SEGMENT 10 AT 00082330 
00785600 00834070 00834080 00834200 
FILLAREATYPe = PROCENURF == DECLARED 1N SEGMENT 10 AT 00295120 
02720990 
FILLINFO #8 PROCEDURE #= DECLARED IN SEGMENT 10 AT 00165000 
00357000 
FILLXNAMS »* STREAM PROCEDURE = DECLARED In SEGMENT 12 AT 00248000 
00769000 00291000 
FINALQUE == DEFINE = DECLARED IN SEGMENT fo AT 00141000 
020469000 
FINI ™= FORMAT **" DECLARED IN SEGMENT 5 AT 00023000 
02173793 02176000 
FIRST *™ ROOLEAN *" DECLARED IN SEGMENT 29 aT 00587000 
*00597000% 00604000 *00611000% 00644100 00644300 
FIRSTWATT =" nFFINE == pecbaReEn IN SEGMENT 10 at 00149000 
FIX =" STREAM LABEL e#* pECLARED IN SEGMENT 46 AT 00771105 = OCCURS AT 00771145 
00774135 007714440 atna 
FIXDEFINES = PROCEDURE == DECLARED IN SEGMENT 10 AT 00341000 


49 AT 02119300 


SEGMENT 47 AT 00807160 


01601000 


00967150 
01059000 
01198000 
01396000 
01628000 
02149400 


01602000 


00971000 
04090000 
04281660 


01404000: 


01643000 


00972400 


01135000 
01281855 
01449000 
01682000 


CO @ “@ 


O 


FLAG "=" LABEL @" DECLARED IN SEGMENT 50 AT 00813000 7" OCCURS AT 00868000 
00828000 
FLAG ™* BOOLEAN ** NMECLARED IN SEGMENT 69 AT 01349555 
01349670 *01349680x* 
FLAGERR ™s FORMAT **" DECLARED IN SEGMENT 51 aT 00816000 
00868000 
FLGBIT @"*" BOOLEAN STREAM PROCEDURE ** DECLARED IN SEGMENT 10 AT 00552000 
*00556000* 00557000 00675000 00774000 00780000 00796000 00828000 
FLL =" STREAM PROCEDURE ** DECLARED IN SEGMENT 41 AT 00763190 
00763285 00763510 
FLQUE ™™ FORMAT "™™" pWECLARED IN SEGMENT 84 ar 01774130 
02117540 
FMXX "= FORMAT =" MrcLARED IN SEGMENT 22 aT 00436000 
00793000 
FMX2) == FORMAT == OFCLARED IN SEGMENT 22 aT 00444000 
00802000 
FMX3 == FORMAT = DFCLARED IN SEGMENT 92 aT 00445000 
00804000 
FNEWFYLE == FORMAT = DECLARED IN SEGMENT 94 AT 02119330 
02119380 
FoRI == DEFINE = DECLARED IN SEGMENT 79 aT 00573000 
00608000 00617000 
FORMATCODENAME =" STREAM PROCEDURE =" OECLARED IN SEGMENT 10 AT 01349120 
01349490 04349570 01349630 04349640 01349700 041466300 
FORMATDFSC ** STREAM PROCEDURE =" DECLARED IN SEGMENT 70 aT 01370530 
01370930 01468300 
FORMATMSCW =* STREAM PROCEDURE #= DECLARED 1N SEGMENT 70 AT 01370260 
01467900 
FORMATOP = STREAM PROCFNURE "= DECLARED 1N SEGMENT 70 AT 01370940 
01469200 
FORMATPROGDFSC «= STREAM PROCEDURE == DECLARED IN SEGMENT 70 AT 01371110 
01371430 01470000 
FORMATRCW 9% STREAM PROCEDURE *" QOECLARED IN SEGMENT 70 aT 01370020 
01370250 01466700 
FOUND =" BOOLEAN *" DECLARED IN SEGMENT 68 aT 01337000 
*04341{000« 01348000 
FPB »* INTEGER #* DOFCLARED IN SEGMENT 74 aT 01522000 
01580000 
FPUNT = FORMAT =* pECLARED IN SEGMENT 92 AT 02419505 
02129170 
FROM. =» INTEGER e#* VALUE PARAMETER ** DECLARED IN SEGMENT 10 AT 00571000 


00569000 00570000 00597100 *00598000* 00599000 00602000 00606000 00608000 


00639000 00640000 00641000 00643000 «00648000 


FROM "== STREAM VARIABLE 7" VALUE PARAMETER "™" DECLARED IN SEGMENT 29 AT 00576000 


00577000 00578000 
FROM == Real #™ DECLARED IN SEGMENT 41 aT 00763140 


00615000 00617000 


00763445 *«00763450« 00763580 00763585 «00763590* 00763595 00763600 *00763605* 00763615 


FROM == RraAlL = VALUF PARAMETER #* DECLARED IN SEGMENT 10 AT 01096500 
FROM ==  NTEGER =» VALUE PARAMETER =" DeCLARED IN SEGMENT 10 AT 01099000 


04097000 04098000 04443000 04449000 04454300 04454400 04452000 04763000 
01166200 04466300 04166400 04167000 01167100 04167700 04468000 04168600 
01169400 04169500 01169550 04197000 01198000 04203000 01213100 04213300 
FROM "=" STREAM VARIABLE 7™ VALUE PARAMETER "" DECLARED IN SEGMENT 60 AT 01115300 


01115500 01116700 
FROM "=" REAL @™" VALUE PARAMETER =" DECLARED IN SEGMENT 10 AT 01281520 


01281500 01281510 01281640 01281690 01281720 «*01281730« 01281760 041281780 


FS "™" DEFINE ©" DECLARED IN SEGMENT 10 at 00164210 


04164200 01164300 
014168700 01169100 
*01218000% 


*01281790% 01281820 


00638000 


01164500 


01169200 ~~ 


*01281860% 


{(\ 


FS ore REAL ™" pFCLAREN IN SEGMENT 82 at 01773000 
02069000 02071000 02109000 
FT w= FORMAT =" DECLARED IN SEGMENT 84 aT 04775000 
02056000 . 
FTAPDSK == FORMAT «= DECLARED IN SEGMENT 22 AT 00444200 
00785600 
FUNNYMSCH «= INTEGER == DECLARED IN SEGMENT 70 AT 01357100 
01465500 *04466400% 01467800 
Fl "= FORMAT =" DECLARED IN SEGMENT 37 AT 00740000 
00762000 
GETANDSORTMCPROG =" DFFINE == DECLARED IN SEGMENT 10 aT 01281400 
02126500 
GETCOMMON ** STREAM PROCEDURE = DECLARED IN SEGMENT 50 aT 00822100 
00822260 00837050 
GETIDLOC "= DEFINE == DECLARED IN SEGMENT 10 AT 00336000 
GETNUM =~" STREAM LABEL =" DECLARED IN SEGMENT 50 AT 00822110 =" OCCURS AT 00892175 
00892170 
GETPRTENTRIFS == PROCEDURE == DECLARED IN SEGMENT 10 AT 00732000 7 
00763010 00941000 
GETSORTANDLISTINTRINSICS = PROCEDURE «« DECLARED IN SEGMENT 10 AT 01284000 
; 02170000 
GETSORTANDLISTMCPROG == PROCEDURE «= DECLARED IN SEGMENT 10 AT 01252000 
02126500 02168000 
GETSTACKSFROMTHE BEN == PROCEDURE we» DECLAREN IN SEGMENT 1410 AT 01064000 
01096000 07126000 
GLUNK == BOOLEAN STREAM PROCEDURE w= DECLARED IN SEGMENT 44 AT 00763355 
*00763365* 00763370 00763560 
GOTIDFNT == BOOLEAN STREAM PROCEDURE -.« DECLARED IN SEGMENT 19 AT 00319000 
*00392000* 00323000 00329000 
H owm INTEGER ==" DECLARFD IN SEGMENT 34 AT 00658000 
00658600 *00660000* 00662000 
Hos" INTEGER ©" DECLARED IN SEGMENT 70 aT 01357000 
01387000 01388n00 01394000 04395000 01418575 01418580 01439000 04440000 01441000 01442000 04465200 
01465300 01466700 01468000 01468409 01468450 
H 7" INTEGER "" DECLARED IN SEGMENT 74 at 01522000 
*01580000% 01581000 *01584000*% 01585000 401588000% 01589000 «01592000% 01593000 *01597000#*01601000« 01602000 
*01606000% 01607000 01609100 01609200 01625000 01626000 
Ho o=™ FORMAT ©" DECLARED IN SEGMENT 78 aT 01702000 
01706000 
HD w= FORMAT =" DECLARED IN SEGMENT 71 AT 09367000 
01374000 
HO == FORMAT »* DECLARED IN SEGMENT 75 AT 01527000 
01571000 
HDR = FORMAT ©" DECLARED IN SEGMENT 42 AT 00763110 
00763475 ; 
HDR = FORMAT = DECLARED IN SEGMENT 55 AT 00898000 
00912000 
HIHALF ore INTEGER PROCEDURE == DECLARED IN SEGMENT 10 at 00544000 hace 
#00547000% 00660000 00763042 00945000 00917000 00925000 00997000 00967120 04757580 04757720 01757810 
01757855 01757860 04977000 07004000 02005000 02027000 02044000 07054000 02080000 02094000 02101000 
02112000 02117520 02142200 ce 
HIT == STREAM LABEL =* DECLARED IN SEGMENT 50 AT 00822140 = OCCURS AT 00822170 


00822150 
HRS oe" INTEGER =" NAME PARAMETER == DECLARED IN SEGMENT 10 AT 00452000 
*00455000%*00457000* 


Hi = FORMAT ©" DECLARFD IN SEGMENT 75 AT 01528000 
01552000 
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i. td 
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tNteageR =" DECLARED IN SEGMENT 3 aT 00017020 

*00047200% 

INTEGER =" DECLARED IN SEGMENT 8 AT 090046000 

*00057000* 00054000 *00057000* 00058000 

INTEGER w= DECLARED IN SEGMENT 40 AT 00081000 

*004;0000% 00411000 *01241000% 04243000 *01244000% 04245000 04248000 *074267000* 01268000 


04274000 *01278000% 


01279000 *01297000* 01298000 01299100 01305000 *01313000* 01315000 01316000 01317000 *01340000% 01342000 
01344000 01345000 *01633000« 01634000 401637000%%01665000% 01667000 01668000 «01674000« 01676000 01677000 


01679000 *04757500«%01757530«%01757950%%01861000*% 01862000 *01912000% 01914000 01915000 


01961000 01962000 «01963000 04964000 01965000 *01966000% 01967000 014968000 «04972000 *«0 1982000 «%01985390% 


*02021000* 02023000 02024000 02027000 02032000 02037000 02038000 02039000 02040000 
02047000 02053000 02054000 02057000 «02073000% 09075000 02076000 027077000 07080000 


01925000 *01960000« 


02041000 02044000 
02087000 02091000 


029094000 07095000 02098000 02104000 02405000 07409000 02442000 07443000 «02120145 %*09129130% 02129150 


*02173610% 02173630 02173640 

INTEaeER = DECLARED IN SEGMENT 12 aT 00271000 

*00293000* 00294000 

INTEGER *™" DECLARED IN SEGMENT 19 AT 00318000 

*00325000* 00326000 00328000 00334000 *00332000* 00334000 

INTEGER =" DECLARED IN SEGMENT 20 AT 00351000 

*00358000*% 00359000 00360000 00362000 «00364000*% 00365000 

INTEGER @™" DECLARED IN SEGMENT 29 aT 00588000 

*00593000%«00594100% 00594200 «00608000% 00609000 *00617000« 00618000 
INTeqgeR ** DECLARED IN SEGMENT 36 aT 00736000 

*00752000*% 00753000 00757000 «00762000* 

tNtegeR = DECLARED IN SEGMENT 39 AT 90763024 

*00763040*% 007630492 

REAL == DECLARED IN SEGMENT 41 AT 00763140 

00763440 00763450 00763465 00763485 «00763495* 00763505 *00763515* 00763535 00763540 
00763580 00763585 00763590 «00763595«400763605* 00763615 *00763620" 
INTEGER =" DECLARED IN SEGMENT 44 AT 00763295 

*00763325* 00763330 ' 
REAL =" NAME PaRAMETER "=" DECLARED IN SEGMENT 41 AT 00763375 
*00763415« 

INTEGER *" DECLARED IN SEGMENT 46 aT 00771000 

*00786000x 00787000 00788000 00790110 00790120 

INTearFR =" DECLARED IN SEGMENT 48 at 00807515 

*00807580« 

INTFAER == DECLARED IN SEGMENT 30 AT 00823000 


00763555 «00763560 


#008944 10«*00895000%#00833000%%00858000% 00859000 «00860000% 00861000 00863410 *00863120*% 00863130 00866000 


00867000 00868000 
REAL == DECLARED IN SEGMENT 52 AT 00873000 

00885000 00887000 00889000 00892000 

INTEGER =" DECLARED IN SEGMENT 58 AT 014066000 
*01080000*% 010819000 01084000 01091000 

INTEGER =" DECLARED IN SEGMENT 65 aT 01281560 
401281600% 04284610 041281620 04284660 %01281680% 04281700 04281760 04281835 0414281850 
#01281865%#01281890% 

INTEGER =" DECLARED IN SEGMENT 69 aT 01349550 
*01349556%*01349670% 01349680 

INTEGER @= DECLARED IN SEGMENT 70 AT 04357000 
#014485304#0 1418540" 04448560 «04458000* 04465200 07465400 01465500 07465900 01466000 
01468200 01468300 01468600 01469500 

INTEGER =" DECLARED IN SEGMENT 77 aT 01704000 
*01710000#*01713000e 01719000 *01724000*% 01729000 01731000 

REAL ™" DECLARED IN SEGMENT 82 at 01773000 

02067000 02094900 02095000 

ALPHA ARRAY == necbLARrp tN SEGMENT 19 AT 00315000 

00360000 00361000 


01281855 01281860 


041467700 01467800 


cy 


1D == REAL pean w= NAME PARAMETER == DECLARED IN SEGMENT 10 AT 00336000 
0399000 
IDLENGTH = INTEGER STREAM PROCEDURE == DECLARED IN SEGMENT 20 AT 00352000 
*00355000* 00359000 
IFO =" FORMAT © DECLARED IN SEGMENT 85 AT 01852000 
02075000 
IGNOREPAR =" LABEL "» DECLARED IN SEGMENT 50 AT 00813000 =" OCCURS AT 00836000 
00835000 
IGPAR =" LABEL =" DFCLARED IN SEGMENT 50 aT 00812010 =" OCCURS AT 00824220 © 
00824210 . 
ILL =" DEFINE *" DECLARED IN SEGMENT 10 AT 00164330 
01985300 
IMAX "= INTEGER **" DECLARED IN SEGMENT 66 AT 01286000 
*01294000%*01295200% 04296000 01297000 
INAME =" REAL ARRAY ©" DECLARED IN SEGMENT 140 AT 00087000 el 
00847000 #00860000% 00861000 01169100 01169200 04349000 01320000 04349640 04349650 01643000 
INAMESIZE =" INTEGER "™* DECLARED IN SEGMENT 2 AT 00032000 
*00064000«*00072000x 00087000 00847000 00857000 01282000 02120650 
INAMS ee Real aRRaY =" pecbaREn IN SEGMENT 10 aT 00088000 
00848000 01169200 01319000 01349640 04643000 


INAMSSIZE =" YNTFGER =* DECLARFD IN SEGMENT 2 AT 00032000 : Ce ee 


*00064000#*00073000* 00088000 00848000 
INCOMPAT = FORMAT ==» PECLARED IN SEGMENT 53 AT 00880000 
00893000 
INFO = REAL ARRAY == DECLARED IN SEGMENT 140 AT 00084000 


#00166000* 00359000 00360000 00763415 00763495 00763505 00763515 00763560 00763600 00763615 01699000 - an 


02119000 

INFOMASKY s™ DEFINE =" DECLARED IN SEGMENT 10 AT 00164350 
01757436 

INFOMASK2 =" DEFINE =" DECLARED IN SEGMENT 140 AT 00164355 
01757440 


INFOMAX = INTEGER "=" PECLARED IN SEGMENT 2 AT 00024000 
*00078000* 00084000 00358000 : - <s = 
INIT "=" STREAM PROCEDURE *" DECLARED IN SFGMENT 41 AT 00763170 
00763185 00763435 


INITIALIZE ©" DEFINE =" DECLARED IN SEGMENT 10 aT 00156000 Ene Perel Auer ay 


INITIALIZE == PROCEDURE = DECLARED IN SEGMENT 10 AT 02120100 
02120705 02120910 
INQUIRY ©" DEFINE =" DECLARED IN SEGMENT 40 AT 00106000 
INTCODE =" STREAM LABEL =" DECLARED IN SEGMENT 60 AT 01115800 == OCCURS AT 01119400 
01116900 
INTMAX "=" INTEGER @" DECLARED IN SEGMENT 2 aT 00024000 
*00857000% 00860000 01169000 01318000 01642000 
INTR =" BOOLEAN =" PMECLARED IN SEGMENT 60 Art 01304000 
et *01135000% 01168900 
INTRINSIC =" STREAM LABEL @™ DFCLARED tN SEGMENT 10 AT 01349160 == OCCURS AT 01349410 
01349350 
INTRNSC =" DEFINE =" DECLARED 1N SEGMENT 40 AT 00432000 
00723000 04135000 01292000 04310000 
INTSP == DEFINE »* DECLARED IN SEGMENT 44 AT 00763155 
00763415 00763495 00763505 00763515 00763560 00763600 00763615 
INTSP =" REAL ARRAY »" DECLARED IN SEGMENT 40 AT 01282000 
#01299000% 01312000 01315000 01316000 01317000 01349630 01634000 «*02120655* 
INTSPMAX "=" INTEGER =" PECLARED IN SEGMENT 10 aT 01283000 
*01291000%«01299000% 01307000 01312000 01313000 01349630 01633000 01637000 «02120220» 
INX =" INTEGER wm VabUr PaRAMeTFR =" pecbaRED IN SEGMENT 10 aT 00807110 
00807100 00807260 *00807275* 00807370 00807380 


O © 


Cy 


INX =m ,orReay VARTABLF == VALUE PARAMETER = DECLARED IN SEGMENT 47 AT 00807160 
07210 
INX == INTEGER == VALUE PARAMETER == DECLARED IN SEGMENT 1410 AT 04355000 
01353000 01354000 01375000 04377000 01381100 04382000 01383000 04399000 
INX " INTEGER =" DFCLARED IN SEGMENT 77 aT 01704000 
*01715000*% 01716000 01718000 01721000 01726000 *04738000*% 01740000 04741000 
TOATH 7" FORMAT "" nECLARED IN SEGMENT 84 AT 01778000 
02020000 . 
TOQSH oP FORMAT =" neclaRED IN SEGMENT 85 at 01824000 
02072000 
TOQUE =" HEFINE =" nECLARED IN SEGMENT 10 aT 00444000 
02067000 
IOQUEAVAIL == DEFINE == DECLARED IN SEGMENT 140 AT 00143000 
02065000 
IOQUESLOTS == DEFINE «= DECLARED IN SEGMENT 10 AT 00164440 
02064500 
TOTIME "* DEFINE = DECLARED IN SEGMENT to aT 00139000 
IRSTACK ** BOOLEAN *# PECLARED IN SEGMENT 60 AT 014106000 
*01145000%*01164300e 01168400 01199000 
IS =" REAL ™" DECLARED IN SEGMENT 82 AT 01773000 
02067000 02071000 02091000 
ISNAME oO" DEFINE "" DECLARED IN SEGMENT 2 at 00033000 
00860000 00861000 
ISTACK =" DEFINE "" DFCLARED IN SEGMENT 10 aT 00137000 
00727000 01132000 01711000 01723000 01725000 04733000 
ISTACKOK = BOOLEAN #*" DECLARED IN SEGMENT 60 AT 01106000 
*01132000% 01168400 
ISTACKV =" REAL ©" pECLARED IN SEGMENT 60 AT 01106000 
01132000 01133000 *«01134000* 01164400 01164600 
ITh ©" INTEGER ARRAY 7" DECLARED IN SEGMENT 10 aT 00418000 
00778000 00784000 00788000 00789000 00791000 00792000 00793000 00801000 


ITEM == FORMAT =" orcLaRep IN SEGMENT 30 aT 00651000 


00659000 01976000 02142200 

ITEM = FORMAT ©* DOFCLARED 1N SEGMENT 61 aT 01103000 

ITEM == FORMAT «= DECLARED 1N SEGMENT 67 AT 04288000 
04315000 

ITEM = INTEGER = VALUE PARAMETER == DECLARED IN SEGMENT 10 AT 01335000 
01332000 01333000 01342000 014345000 

Jo=™ INTEGER == DECLARED IN SEGMENT 12 AT 00271000 


*00292000«*00294000» 
Joo" INTEGER 7" DECLARED IN SEGMENT 44 AT 00763295 
*00763330 


Jo" INTEGER =" DECLARED IN SEGMENT 65 AT 01281560 
01281610 01281620 01281630 01281640 01281650 01281660 *01281760% 04281780 
Joo"" REAL =" DECLARED IN SEGMENT 79 AT 01757335 
*01757897« 
Jose INTEGER @" DECLARFD IN SEGMENT 93 AT 02120425 
JAR ©" DEFINE "= DECLARED IN SEGMENT 10 AT 00131000 
00722000 01540000 
JARO "=" REAL =" DECLARED IN SEGMENT 74 aT 04526000 
01540000 *01541000* 01554000 01556000 
JAROO *" REAL "= DECLARED IN SEGMENT 74 AT 01525000 
01556000 *01557000« 01559000 
JORNUM *"" DEFINE ™* DECLARED IN SEGMENT 10 aT 00134000 
00725000 01073900 
K =" INTEGER "=" DECLARED IN SEGMENT 36 aT 00736000 
*00750000%*00756000% 00757000 *00758000% 00762000 


01438000 


00802000 


01281790 


00803000 00804000 


01281820 01281855 


om 


Cy 


SS) 


fs 


Or 3Oc 5G: 36> 6: Oo 


Pesrererses 


Or 3G. @ 403 105 36 


C) 


K =e  NTEGER == DECLARFD IN SEGMENT 65 AT 04281560 
01781610 04284620 042814630 04284660 


~K == INTEGER == DECLARED IN SEGMENT 93 AT 09120125 


*02190605* 02120610 #£02120650* 02120655 
KIND =s*= REAL =" NAMF PARAMETER e@w DECLARED IN SEGMENT 10 AT 00686000 
00683000 *00689000« 
KIND "* INTEGER *™" NECLARED IN SEGMENT 34 AT 00700000 
00701000 00702000 
KINDS ©" nEFINE =" pWECLARED IN SEGMENT 10 AT 00434000 
KLASS ©"  tNTEGER =" DECLARED IN SEGMENT 2 aT 00029000 
*00324000% 00328000 *00360000%*0036 3000» 
L om STREAM VARIABLE == DECLARED IN SEGMENT 20 aT 00353000 
00355000 
Loos"  NTEGER = DECLARED IN SEGMENT 31 AT 00658000 
*00661000* 00662000 
Loe REAL == DECLARED IN SEGMENT 36 AT 00734000 
00744000 00745000 00748000 00749000 
lb ow" STREAM VARIABLE == NAME PARAMETER ** DECLARED IN SEGMENT 46 AT 00771100 
00771110 
Lo" REAL =" DECLARED IN SEGMENT 60 AT 01102000 
#01149000%*01149100% 01149200 01154000 01151600 03164000 01167000 04168300 01168700 
01169550 01211000 
Lo o=" INTraeR =" DECLARFD IN SEGMENT 62 aT 03229000 
*01242000% 01243000 *04245000% 04247000 
Lo om== REAL = DECLARFD IN SEGMENT 66 AT 049287000 
01301000 *04302000* 04303000 04304000 *014345000x 01318000 04319000 04320000 
Lo" INTEGER =" DECLARED IN SEGMENT 70 AT 04357000 
01387000 0143868900 01394000 04395000 01448575 04418580 01439000 04440000 04441000 
01465200 01465300 01465600 01466700 
bos" INTEGER =" DECLARED IN SEGMENT 74 aT 01523000 
*01631000% 01634000 01635100 01641000 01642000 01643000 
bo o=* REAL ©" pecbARrp 1N SEGMENT 82 AT 01758200 
01995000 01996000 01997000 01998000 01999000 92010000 02117510 02117520 02117530 
LA == REAL ™* DFCLARED IN SEGMENT 82 AT 01758200 
02015000 02040000 02068000 02101000 02105000 *02147540* 02417540 
LABELMDESC == STREAM LABEL == DECLARED IN SEGMENT 70 AT 01371135 «= OCCURS AT 01371256 
01371250 
LABELTABLE == DEFINE == DECLARED IN SEGMENT 10 aT 00150000 
020745000 
LAST =" BOOLEAN == NMECLARED IN SEGMENT 29 AT 00587000 
*00602000*« 00634000 
LASTROW =" REAL ARRAY == DECLARED IN SEGMFNT 10 AT 00558000 
00606000 00609000 00619000 00630000 
LENGTH "" STREAM VARIABLE ©" VALUE PARAMETER =e DECLARED IN SEGMENT 70 AT 01370530 
01370550 04370660 04370720 04370730 01370770 
LEVEL == REAL == HECLARED IN SEGMENT 2 AT 00028000 
*00068000*% 00409000 
LFO == FORMAT == DECLARED IN SEGMENT 85 AT 01855000 
02100000 
LIM = INTEGER = VALUE PARAMETER == DECLARED IN SEGMENT 10 AT 01227000 
01224000 01225000 01238000 01241000 
LINE = STREAM VARIABLE ** NAME PARAMETER == DECLARED IN SEGMENT 29 AT 00576000 
00578000 
LINE = REAL ARRAY =» DECLARED IN SEGMENT 10 AT 00652000 
00659000 00665000 00666500 00667000 00763345 00763415 00763420 00763510 00763520 
00807380 00807390 00915000 00918000 009149000 00920000 00925000 00928000 00929000 
00967160 01151400 01151700 01168600 01169100 01169400 01169600 04315000 01319000 


01169200 


01442000 


°02117540 


00785400 
00930000 


01321000 


01169400 ° 


01444000 


00785500 


00967120 


01394000 — 


01468300 


01469200 


mn 


oN 


ry 


01396000 01397000 01446000 01448000 01450000 041465200 01466700 01467900 01470000 
01470200 01552000 01560000 01562000 01566000 041567000 01569000 01639000 01643000 01644000 01757580 
01757600 01757620 01757720 01757760 01757810 01757830 01757855 01757875 01757885 01914000 01915000 
01916000 01976000 01978000 01979000 02003000 02007000 02009000 02026000 02035000 02043000 02049000 
02053000 02059000 02079000 02089000 02093000 02096000 02100000 02107000 02111000 02114000 02129170 
02129180 02129190 02173630 02173640 02173650 ; 
LINE ae STREAM VARIABLF @* NAME PARAMETER w= DECLARED IN SEGMENT 47 aT 00807160 
0807180 
LINE =e STREAM VARIABI.£ =» NAME PARAMETER w= DECLARED IN SEGMENT 60 AT 01445300 
01415900 044116700 
LINE == STREAM VARIAB)E ==" NAME PARAMETER ew» DECLARED IN SEGMENT 70 AT 01370020 
01370060 01370090 
LINE =» STREAM VARIAB)E ==" NAME PARAMETER == DECLARED IN SEGMENT 70 AT 01370260 
01370290 01370320 
LINE == STREAM VARIABLE =" NAME PARAMETER »* DECLARED IN SEGMENT 70 AT 01370530 
01370580 01370610 
LINE "= STREAM VARIABLE ™™ NAME PARAMETER =" DECLARED IN SEGMENT 70 AT 01370940 
01370970 01371000 
LINE "" STREAM VARIABLE @" NAME PARAMETER = DECLARED IN SEGMENT 70 AT 01371110 
01371140 01371170 
LINF2 "*" STREAM VARIARLE @" NAME PARAMETER = DECLARED IN SEGMENT 70 AT 04370940 
01371030 
LINK * ReAL oe DECLARED IN SEGMENT 56 AT 00948000 
#00976100% 00980000 00983000 00985000 00987000 *00988000« 04007000 04009000 «01011000% 01012000 01015000" 
01017000 *01018000% 01022000 *01036000* 01036100 01037000 01040000 01042000 01044000 01049000 01051000 
LINKOK = gOOLFAN PROpENURE =" pecbLARED IN SEGMENT 56 AT 00950000 
*00953000% 00972400 00981000 01013000 061038000 
LINKTyYPr ** Real oe DECLARED IN SEGMENT 10 at 00295100 
00593000 #01149400% 01166100 *04166600*% 01166900 «04167300% 04167700 *011678004#01168100*% 01168300 *01168500% 
01168550 01168900 01169400 04200000 01240000 04213000 «01281835 eT eae 
LINK{ =" STREAM VARIARLF =" VALUE PARAMETPR #= DECLARFD «tN SEGMENT 60 AT 01115400 
01115500 04121300 
“GLINK2 == STREAM VARIABLE ©= VALUE PARAMETER = DECLARED IN SEGMENT 60 AT 041145400 
07115500 04420950 04424500 
LINK3 = STREAM VARIABLE == VALUE PARAMETER == DECLARED IN SEGMENT 60 AT 01115400 ; 
011195500 04121700 
LISTMCPROG ©" DEFINE == DECLARED IN SEGMENT 10 AT 01281420 
02168000 
LL "* REAL ©" DECLARED IN SEGMENT 60 AT 01104000 
*01168900% 01169000 01169100 01169200 «01197000% 
LNKSOK =" ROOLEAN =" DECLARED IN SEGMENT 10 aT 00498000 
*00976000*% 00979000 %00980000% 01000000 01033000 01034000 01035000 01051100 01052100 01058000 #02120405«~ 
02151000 
LO = gOOLFAN © DpEreLARFD IN SEGMENT 41 at 00763140 
*00763450* 00763490 00763570 *00763575* 
LOAD = PROCENURE == DECLARED 1N SEGMENT 40 AT 00810000 
00869000 02119480 02494000 
LOC we INTEGER == NAME PARAMETER =* DECLARED IN SEGMENT 40 AT 00316000 
00327000 *00331000**00334000* 
LOC =" INTEGER == DECLARED IN SEGMENT 20 aT 00351000 
*00359000* 00361000 00362000 care 
LOC =" INTEGER == VALUE PARAMETER **" DECLARED IN SEGMENT 10 aT 00546000 
00544000 00545000 00547000 
LOc =" INTEGER =" Value PARAMETER == DECLARED IN SEGMENT 10 aT 00550000 : _ ae Ss 
00548000 00549000 00551000 
LO; o=* INTEGER ™* DFCLARED IN SEGMENT 39 aT 00763024 ere 
00763032 00763034 *00763036% 00763049 a ici , ee ee 


O 


= 


O 


LOC =" INTEGER == DrFCLARED IN SEGMENT 47 aT 008071430 
00807330 00807340 *00807350* 00807370 


LOC = REAL == DECLAREN IN SEGMENT 52 AT 00873000 ns a 


*00884000% 00885000 *00886000* 00887000 «00888000% 00889000 *00891000%* 00892000 
LOC =" INTEGER =" DECLARED IN SEGMENT 54 aT 00904000 

*009413000*% 00915000 00946000 00918000 «00923000% 00925000 00926000 00928000 
LOrPATQUF ™* DEFINE "= necbLAREN IN SEGMENT 10 aT 00142000 ~ 


02068000 : 
“LOcIReW ©" REAL =" AECLAREN IN SEGMENT 10 aT 01352500 
*01609100%**04609000* 


LOWALE = INTEGER PROCENURE == DECLARED IN SEGMENT 10 AT 00548000 
#00554000% 00664000 00763042 00916000 00947000 00926000 00927000 00967430 04757590 04757730 04757820 
01757860 01757865 01977000 02004000 02005000 02032000 02047000 07057000 02076000 02087000 02095000 
02105000 02113000 02117530 02142250 : 
LOOKQ *" pEFINE *" NpECLARED IN SEGMENT 10 AT 00164315 ; - f $aoe aes 
01985150 
LOOP = LaBEL &* DECLARED IN SEGMENT 41 AT 00763165 =" OCCURS AT 00763500 
00763560 00763620 . ~~ 
LQAVATL ** DEFINE =" DECLARED IN SEGMENT 10 AT 00164420 
02117430 02117450 
LQUE =" MFFINE == DrcLaRED IN SEGMENT 10 aT 00164410 
02117440 02117560 
LQUFHNR = FORMAT =" DFCLARFD IN SEGMENT 84 AT 01774100 
02147480 
LS == REAl, == DECLARED IN SEGMENT 82 AT 07758200 
02075000 02039000 02039000 02068000 02071000 07098000 


rt 


LSLATE 9° DEFINE ©= DECLARED IN SEGMENT 10 aT 00123000 Ty er ON eG 


01988000 01995000 

LSTD 7" REAL ARRAY = DECLARED IN SEGMENT 74 AT 01532000 
*01668000*% 01675000 01676000 01677000 01681000 *«01685000« 

LUN =" FORMAT "" DECLARED IN SEGMENT 84 ar 01774000 


02023000 

Li == STREAM LABEL “= DECLARED IN SEGMENT 70 AT 01370570 ==" OCCURS AT 01370650 73 Py ern ae tere 
01370630 

bi == STREAM LABEL =» DECLARED IN SEGMENT 70 AT 014371135 == OCCURS AT 01371210 
01371190 


Mo o=* DEFINE == DECLARED IN SEGMENT 10 AT 00414000 
00547000 00551000 00606000 00608000 00615000 00617000 00640000 00641000 00643000 00644000 00675000 
00679000 00689000 00692000 00763600 00763615 00774000 00777000 00780000 00783000 007960007 00799009 
00824110 00832000 00832100 01149000 01516000 041517000 01559000 04561000 01757600 01757875 01978000 
02038000 02040000 02129180 
M o-= ReAL == prcbaRen +N SeEeMENT 27 AT 00466000 
*00484000*#00488000% 00489000 00494000 00492000 00493000 
M o== YNTEGER == DECLARED IN SEGMENT 56 AT 00963000 
04035000 *04048000« 04055000 07057000 
M == INTEGER 2 DECLARED IN SEGMENT 58 AT 04068000 
*01083000* 
MA = REAL, ** DECLARED IN SEGMENT 82 AT 04758200 my * a o Ree nes 
02044000 027038000 
MANY = STREAM VARIAB),E == VALUE PARAMETER ==" DECLARED IN SEGMENT 10 AT 00536000 
00537000 00541000 00542000 
MATCH =" BOOLEAN *™" DECLARED IN SEGMENT 29 aT 00587000 
*00619000* 00627000 00636000 . 
MAXBAD ** INTEGER =" DECLARED IN SEGMENT 10 aT 00715000 
*01020000**01021000**02120185* 02160000 02161000 
MAXCOMMONVALUF =" DFFYNE =" pECLARED IN SpGMENT 2 AT 00016000 
MAXCOR = {INTEGER =" DECLARED IN SEGMENT 49 AT 00496000 eg Se 


i 


CT) Cy 


-_ 


> 3 Or soe 463 2G 


O 


00807350 *00853000* 00974000 04020000 04036000 01757610 01757880 04822000 01978000 02465000 


MAXLNK = INTEGER =" DECLARED IN SEGMENT 40 AT 00715000 


*00971000% 00979000 00983000 00991000 01001000 01011000 01021000 01027000 01056000 01058000° 


*02120190«% 02152000 02161000 

MAXMCPDATA "™" INTEGER =" pDEeLARED IN SEGMENT 65 at 01281560 
*012815904*01281650% 01281670 01284700 

MAXMCPROG = tNTeGeER =" DFCLARFD IN SEGMENT 10 aT 01222000 


*012640004%04265000% 01265900 *01274000+ 01275000 04278000 01280000 04349560 04444000 *02120205x 


MAXMESSAGES = DEFINE #* DECLARED IN SEGMFNT 10 AT 01747000 
01757530 04757897 04757950 04989000 
MAXMOD = INTEGER == DECLARED IN SEGMENT 40 AT 00496000 
*00851000**00852000% 00853000 
MAXOPT =" DEFINE = DECLARED IN SEGMENT 40 AT 00111000 
MAXSTACKSIZE == DEFINE =" DECLARED IN SEGMENT 70 AT 01365000 
01454000 01456000 01457000 
MAXSTK =" INTEGER @*" DECLARED IN SEGMENT 40 AT 00095000 
+*01087000*#01203000% 01737000 01738000 01741000 *02120235% 
MAYBE =" STREAM LABEL ©" DECLARED IN SEGMFNT 46 ay 00771105 == OCCURS AT 00771135 
00771125 
MAYBE =" LABEL =* DFCLARED IN SEGMENT 52 qT 00875000 == OccURS aT 00893000 
00885000 00887000 00889000 00892000 
MCP == BOOLEAN == DrCLARED IN SEGMENT 2 at 00035000 


#00069000% 00441000 00790300 00807550 01423000 04284000 04985400 05985350 02117155 02417400. 


MCPCNT se INTEGER STREAM PROCEDURE == DECLARED IN SEGMENT 10 AT 00765000 
*00768000« 00769000 00786000 
MCPCONDE == STREAM LABFL =" DECLARED IN SEGMENT 60 AT 01115800 == OCCURS AT 01419100 
01116800 
MCPCODE © STREAM LABFL =" DECLARED IN SEGMENT 10 AT 01349160 =" OCCURS aT 01349380 
01349330 
MCPDATA = REAL ARRAY =" DECLARED IN SFGMFNT 65 AT 01281540 as 
*04287650% 04284670 0742781760 04284635 04281859 04281,855 04281860 
MCPENTRIES == PROCEDURE == DECLARED IN SEGMENT 10 AT 00718000 
00940000 
MCPHDR = FORMAT = DECLARED IN SEGMENT 17 AT 00299000 
00409000 
MCPOPT == SWITCH FORMAT = DECLARED IN SEGMENT 48 AT 00300000 
00411000 
MCPOUTERBLOCK == STREAM LABEL "= DECLARED IN SEGMENT 10 AT 01349160 == OCCURS AT 01349371 
01349340 : 
MCPROG "*" REAL ARRAY ©* DECLARED IN SEGMENT 10 AT 01221000 
#01261000%*01271000*% 01275000 01279000 01349560 04444000 
MCPSAVE *"* BOOLEAN "= PECLARED IN SEGMENT 60 AT 01107100 
*01164000% 01168550 01208100 01211000 «01215100% 
MCPVERSION == neFINE = DECLARED tN SEGMENT 10 AT 00435000 
00773000 00786000 00787000 00788000 
MDUMP oe" FILE =" DECLARED IN SEGMENT 2 AT 00016510 
00824210 00826990 00827000 00834050 00834060 00834070 00834095 00834097 00835000 00837400 
02119370 02173750 02173760 p 7 
MEMASK "" DEFINE ™* DECLARED IN SEGMENT 10 aT 00164190 
00807560 
MEMORY "" REAL ARRAY "™ DECLARFD IN SEGMENT 10° aT 00112000 s 
00547000 00551000 00606000 00608000 00615000 00617000 00640000 00641000 00643000 00644000 
00679000 00689000 00692000 00763600 00763615 00774000 00777000 00780000 00783000 00796000 


00824110 00832000 00832400 04149000 01220000 04516000 045147000 04559000 04561000 04757600 ~ 


01978000 02038000 02040000 02129180 
MEND =" OFFINE == DFCLARED IN SEGMENT 10 aT 00127000 
00966000 toss 


01060000 


02119000 


00838000 


00675000 
00799000 


04757875 ~ 


rN 


me NAME PARAMETER == 


DECLARED IN SEGMENT 10 


»= DECLARED IN SEGMENT 40 AT 00454000 


DECLARED IN SEGMENT 10 AT 00715000 
DECLARED IN SEGMENT 140 aT 00715000 


01003000 01005000 «02120175* 02145000 


"= DECLARED IN SFGMENT 90 AT 02119340 


AT 00426000 


00792000 00793000 00801000 00802000 


MESSAGEHOLNER we DEFINE 
014971000 04973000 
MIN = INTEGER 
00451000 *00455000**00458000* 
MINBAND *™" INTEGER &=* 
*01009000%*02120180* 02156000 
MINLNK ©" INTEGER = 
*00976100% 01000000 
MINUS? "" STREAM PROCEDURE 
02119360 
MINUTFS =" DEFINE # 
00784000 00789000 
MIX #" REAL ARRAY &@* 


MIX = 


MIX 


MX = Real == pECLARED IN SEGMENT 66 aT 01287100 
*01295200% 04310700 
MIX «= INTEGER ## DECLARED IN SEGMENT 74 AT 01522000 
*01545000% 04545700 014546000 07552000 01556000 04575000 
01698300 
MIXMASK 9 DEFINE == PECLARED IN SEGMENT 40 AT 00164345 
01757434 
MIXMAX ©" INTEGER ** DECLARED IN SEGMENT 10 AT 900092000 
*007460004%%*00751000*% 00954000 01545000 01697000 01698200 
MIXSTK ©" REAL ARRAY ™" DECLARED IN SEGMENT 10 aT 01063000 
01983000 *01088n00% 01690000 *01695100% 01698300 *02120610« 
MMM oo" PROCEDURE ™" DECLARED IN SEGMENT 44 aT 00763375 
00763535 00763540 
MOpr = STREAM LaBEL #= DECLARED YN SEGMENT 70 AT 01371135 = 
01371254 
MODON =" BOOLEAN ARRAY DECLARED IN SEGMENT 10 AT 004147000 


DECLARED IN SEGMENT 36 


AT 00737000 


*00757000**00758000« 00762000 


INTEGER 


== DFCLARED IN SEGMENT 58 aT 


*01082000% 01083000 
" STREAM VARIABLE 


01115500 


01118300 


#00829000* 00859000 


01067000 
01084000 01088000 01092000 
VALUE PARAMETER #® 


00936000 


DECLARED IN SEGMENT 10 AT 00452000 


02147000 


00803000 


DECLARED IN SEGMENT 60 AT 


01576000 


02120605 


02149300 


00804000 


01115300 


01690000 


OccURS AT 01371360 


02150010 


02152000 


01695100 *04697000%*«01698200% 


02040000 


00763600 
02007000 


MOM == STREAM VARIABLE VALUE PARAMETER w= DECLARED IN SEGMENT 60 AT 01115400 
01115500 041120900 

MOMADDRESS ** STREAM VARTABLE == VALUE PARAMETER =" OEFCLARED IN SEGMENT 70 AT 01370540 
01370550 01370850 

MOMFLG =" STREAM VARIABLE =" VALUE PARAMETER = DECLARED IN SEGMENT 70 AT 01370540 
01370550 01370810 

MONTTORR == DEFINE "= pECLARED IN SEGMENT 10 AT 00110500 

MONTH ="  NTEGER = NAME PARAMETER #= DECLARED IN SEGMENT 10 AT 00464000 
00461000 *00491000% 

MOVADR == STREAM LABEL == DECLARED IN SEGMENT 10 AT 01349160 == OCCURS AT 01349250 
04349190 04349500 04349240 

MOVC == STREAM PROCEDURE «= DECLARED IN SEGMENT 10 AT 04325000 
01331000 01559000 01561000 01566000 01567000 041915000 02035000 07038000 
02089000 02096000 02107000 02114000 

MOVD = STREAM PROCEDURE = DECLARED IN SFGMENT 10 AT 01750000 
01757100 01757600 01757875 01978000 02129180 

MOVE "=" STREAM PROCEDURE "" DECLARED IN SFGMENT 2 aT 00036000 
00037000 00054000 00058000 00360000 00606000 00615000 00630000 00665000 
009148000 00919000 00928000 00929000 01319000 04396000 01448000 01643000 

MOVE "=" STREAM PROCEDURE °°" DECLARED IN SFGMENT 45 AT 00763385 
00763405 00763415 

MOVE = STREAM PROCEDURE == DECLARED IN SeGMENT 62 AT 01234000 


02049000 


00763615 
02133000 


02059000 


00835100 
02173640 


C 


C1 


Cy 


Cy 


C) 


© 


C) 


Oe 8 OO. SO 4: WO: AO) 


a 


MOVER 

MOVNAM 
MOVNAM 
MOVSIZ 


MOVTYp 


MS 
MSF 


MSTART 


F 


01237000 01247000 
mm STREAM PROCENURE *= DECLARED IN SEGMENT 50 AT 00818000 
00822000 00832000 ~ 
wm STREAM LABEL ==" DECLARED IN SEGMENT 60 AT 01115850 == OCCURS AT 01119600 
01119300 


ww STREAM LABEL oe DECLARED IN SEGMENT 10 AT 01349160 = OCCURS AT 01349430 - — oo  & 


014349400 

we STREAM LABEL, =* DECLARED IN SEGMENT 60 AT 01115850 =" QCCURS AT 01120000 tes « Gia Ma,. Hn cease 
041198500 04119000 01149900 

wm STREAM LABEL == DECLARED IN SEGMENT 60 AT 01115850 «= OCCURS AT 01117500 

01117200 


REAL ==" DECLARED IN SEGMENT 82 AT 04758200 ; oo 


02014000 02019000 02037000 


we STREAM VARIABLE == VALUE PARAMETER ©" DECLARED IN SEGMENT 70 AT 04370260 


01370270 01370400 
STREAM VARIABLE == NAME PARAMETER "= DECLARED IN SEGMENT 10 AT 01349120 
01349170 *01349930%*01349270%«01349300% —_— 
REAL ARRAY =" NAME PARAMETER "=" NECLARED IN SEGMENT 10 aT 01349530 oO — ee 
01349500 01349570 01349610 01349649 01349700 
"" DEFINE "" DECLARED IN SEGMENT 40 aT 00126000 ee ee eee 
00965000 00972500 00973000 ~ = 


MSTARTOK == BOOLEAN == DECLARED IN SEGMENT 56 AT 00947000 


MUL 


TI 


#*00972500%«00973000*% 00976000 00976400 00976200 , 
w= BOOLEAN =" DECLARED IN SEGMENT 10 aT 00082150 nS aaa ee 
00824200 00826990 00834075 «*00834085« 00837095 02173700 


MULTITABLE =" DEFINE == PECLARED IN SEGMENT 10 aT 00151000 


MV 


MX 


MXNOTO 


MXO 


MY 


02014000 ne ine Pista ed Be eae oe 
STREAM PROCEDURF =" DFCLARED IN SEGMENT 29 AT 00586000 

00608000 00617000 
REAL *© DFCLAREN IN SEGMFNT 60 AT. 04143000 i a i aa 
*01149200% 01169400 04209000 04240000 

w= BOOLEAN == DECLARED IN SEGMENT 60 AT 01107100 Sah atte 
*01149200% 01166000 04168400 04168550 . _ 

DEFINE = DECLARED IN SEGMENT 60 AT 04107200 

04168400 01168550 Dees pees 
REAL == DECLARED IN SEGMENT 6 AT 00040120 - = ; 

00040240 00040250 00040270 


MYSTACKADR =* INTEGER == DECLARED IN SEGMENT 2 aT 00004500 


*00940250% 00040280 00863100 #00863130* 01457110 01457130 01457440 01742110 01742130 #02173799% ~ b. - Ss eet oaees 


MYSTACKDUMPED =" BOOLEAN *=* DECLARED IN SFGMENT 2 aT 00018000 


01457120 «*01457450% 01742100 *01742165x 


MYSTACKSIZE o"*" DEFINE =" DECLARED IN SEGMENT 2 aT 00004100 pe 2 Se 


MYTYPRr 


M32 
N 


01457110 01742440 
me REAL == DFCLARED IN SEGMENT 52 aT 00874000 
*00883000% 00885000 00887000 00889000 »00890000* 00892000 Se eee 
STREAM VARIABLF == VALUE PARAMETER ==" DECLARED IN SEGMENT 62 AT 01231000 
01232000 01236000 
INTEGER == DECLARED IN SEGMENT 8 AT 00046000 
*00048000% 00054000 
INTEGER =" DECLARED IN SEGMENT 19 AT 00318000 
¥00326000% 00327000 *00329000% i. 
STREAM VARIABLE == VALUE PARAMETER ©" DECLARED IN SEGMENT 19 AT 00319000 
00321000 
TNTEGER = VALUF PARAMETER == DECLARED IN SEGMENT 10 AT 00531000 SS ee ee 
00529000 00530000 00535000 
STREAM VARIABLE == VALUE PARAMETER = DECLARED JN SEGMENT 99 AT 00586100 an ae 
00586130 


LX, 


oN 


ee oe 


‘ 
i 


Boon 2 
ert 
Q 


Soba ips cv 


& © oO 6 


C) 


©) 


} 


Oe vo, Oe: so 


>: tor: 


a 


N Lal 


N we 


N = 


oN me 


NA ™* 
NAM «fF 


NAME ® 


NAME = 
NAME @ 
NAME * 
NaMe 
NAMES]Z 
NAMS «= 
NAMSS1Z 
NB == 


NC @m 


01349130 01349460 
REAL = DECLARED IN SEGMENT 82 AT 01758200 
01991000 01992000 04993000 01994000 01999000 *02002000% 02003000 07004000 
STREAM VARIABLE "= VALUE PARAMETER ** DECLARED IN SEGMENT 90 AT 02119340 
02119350 
STRFAM VARIABLE @™ VALUE PARAMETER “™ DECLARED IN SEGMENT 29 aT 00576000 
00577000 00580000 00583000 
Real ARRAY *" prclaRrp IN SEGMENT 41 AT 00763160 
00763435 00763510 
» RrAL ARRAY ee» pECLARED IN SEGMENT 10 AT 00085000 
00396000 00328000 00665000 00666000 00845000 *00858000% 00859000 00926000 
01168700 04349570 014349580 04448000 01449000 02007000 02008000 ~~ 
= STREAM VARTABLE == NAME PARAMETER © DECLARED IN SEGMENT 60 AT 014115300 
01118000 0414119800 
~ STREAM VARIABLE == NAME PARAMETER ew DECLARED IN SEGMENT 410 AT 014349120 
01349450 
= STREAM VARIABLE ** NAME PARAMETER e* DECLARED IN SEGMENT 70 AT 01370020 
01370220 ot 
Ds STREAM VARIABLE ©" NAME PARAMETER =" DECLARED IN SEGMENT 70 AT 01371110 
1371410 
Fo = INTEGER- == DECLARED IN SEGMENT 2 AT 00030000 
*00064000%*00070000*% 00085000 00845000 00856000 
= REAL ARRAY =» DECLARED JIN SEGMENT 10 AT 00086000 
00399000 00665000 00846000 00928000 00999000 04168700 04349570 04448000 
—E =» INTEGER = DECLARED IN SEGMENT 2 AT 00030000 
*00064000%*00071000* 00086000 00846000 
STREAM VARIABLE = VALUE PARAMETER == DECLARED IN SEGMENT 29 AT 00576000 
00577000 00581000 00584000 
STREAM VARIABLE =* VALUE PARAMETER “= DECLARED IN SEGMENT 29 AT 00576000 
00577000 00582000 00585000 
NEFDCHECKAVALTLNKS =" ROOLEAN =" DECLARED «tN SEGMENT 10 aT 00716000 


STREAM VARIABLE =#== 
00822120 00822240 
INTEGER =" DECLARED IN SEGMENT 54 AT 00904000 
*00916000*« 00917000 00919000 +*00926000% 00927000 
INTEGER *" DECLARED IN SEGMENT 56 AT 00963000 
*00967140%*00967450%*00978100% 01033000 «01046000« 01053000 
INTEGER ©" DECLARFEN IN SEGMENT 60 aT 01112000 
*01149000% 01152000 01167700 04168700 01169200 04169500 01197000 074203000 
STREAM VARIABLE @* VALUE PARAMETER =*™ DECLARED IN SEGMENT 10 AT 01349120 


NAME PARAMETER =e DECLARED IN SEGMENT 50 AT 00822400 


00929000 *00935000* 00936000 


01057000 


01151900 *02120425**02141000% 


NEXT =" LaBEL © DECLARED IN SEGMENT 36 AT 00743000 = occURS aT 00759000 
00755000 

NEXTITEM == PROCEDURE = DECLARED IN SEGMENT 10 AT 00402000 
01373000 04570000 04640000 04722000 01732000 014757400 04949000 04949300 
021147050 02417425 02117420 02119210 02119240 

NEXTPAGE =™* DEFINE &= DECLARED IN SEGMENT 10 AT 00296000 
00932000 00941000 01276000 01309000 01551000 01705000 01709000 04727000 

_ 01919400 01985380 01986000 02012000 02064000 02119170 02173795 

NexTWalT "=" prriNe = pecbaRep IN SEGMENT 10 aT 00148000 

NFO =" ofrrNe "= peeLAREN IN SeaMENT 10 ar 00136000 
00726000 

NODUMP ==" DEFINE ** DECLARED IN SEGMENT 2 AT 00012500 

00807350 07454900 04152000 04164900 01243300 04284720 01281780 04284855 
02138000 02142n00 02142300 02143000 02144000 02148000 02149000 07149100 
02165000 02165100 

NODUMPTOG ©" BOOLEAN = DECLARED IN SEGMENT 10 AT 00082110 


01213100 


02005000 


00928000 


02007000 


04970000 


01735000 


041757770 
02149300 


01213300 


02010000 


00929000 


03986100 


01741000 


01757840 
02149400 


02012000 


01856000 


024119250 
02160000 


OTTO TOOT cc 


Pe bs oes 


- 


CT 


Cy 


{) 


0) 


S7/ 


*02165120% 02173796 «02173797 
DECLARED IN SEGMENT 2 AT 00007000 


NOMCPCODE 7" DEFINE #* 
01211000 01281835 
NOMEMXI *™ FORMAT 
01860000 
NOMO = BOOLEAN 
*00837095**00838010% 02119160 
NOMOM = STREAM LABEL # 
04370820 04370890 
NONORMALCONDE == DEFINE 
01240000 
NOPROCESSTOG == DEFINE 
01918200 
NORMAL '" BOOLEAN *&* 
*01382000% 01385000 
NOTHINGTODO "* DEFINE = 
00884000 
NOTPRINTCALL ©" BOOLEAN 
NOTSOCTADES “== 
*#00040190*% 00040230 
NOWRAPAROUNH = BOOLEAN 
*01025000% 01032400 *«01036000* 
NSLATE "™ DEFINE 
01987000 01991000 
NSNAME *™ DEFINE 
00858000 00859000 
NULLMESSAGES "* FORMAT 
01985000 
NULLQUE = FORMAT & 
02117460 
NULLSLATE == FORMAT a= 
02041000 
Ni == ALPHA == 
N2 *= ALPHA = 
*00849100*% 00849200 
OCTADF "* DEFINE 
00579000 00580000 
01370200 01370380 
OcTaL =" REAL PROCEDURE 
#00535000" 00659000 
00925000 00926000 
01007000 041021000 
01378000 01387000 
01441000 04442000 
01580000 041581000 
04600000 04604000 
04684100 04757580 
01976000 04977000 
02045000 02046000 
02088000 02094000 
021147530 02117540 
OCTALWORD == DEFINE = 
01121400 01121600 


OCTDEC 


em REAL STREAM PROCEDURE 


00040160 


"= nECLARED IN SEGMENT 10 Ar 00082150 


=" OECLARED IN SEGMENT 10 AT 00122000 
"* DECLARED IN SEGMENT 2 AT 00031000 


02149200 


DECLARED IN SeEGMFNT 70 AT 91370570 


DECLARED IN SEGMENT 83 AT 01762000 


DECLARED IN SEGMENT 2 AT 90006000 


DECLARED IN SEGMENT 10 AT 00164340 


01391000 


01420000 


01422000 


DECLARED IN SEGMENT 70 AT 01366000 


01454000 


DECLARED IN SEGMENT 10 AT 00159000 


00926000 


DECLARED 


IN SEGMENT 10 AT 00559100 
00593000 *01122100%*01208100%*01219100%#01281685%+01281905% 
BOOLEAN STREAM PROCEDURE ** 


DECLARED IN SEGMENT 56 AT 00947100 


DECLARED IN SEGMENT 83 AT 91760000 


DECLARED IN SEGMENT 50 AT 00823100 
00837050 *00837055**00849100* 00849200 
DECLARED IN SEGMENT 50 AT 00823100 


e= DECLARED IN SEGMENT 10 AT 00112500 


00040930 


00581000 00586130 01146200 
01370510 01370710 01370750 

peckhaRep IN SEGMENT 10 aT 
00660000 00661000 00662000 
00927000 00967120 00967130 
01022000 0410514000 01057000 
01388000 04394000 01395000 
01443000 04447000 01465200 
04583000 04584000 01585000 
01605000 04606000 04607000 
04757590 04757720 01757730 
02003000 02004000 02005000 
02047000 02048000 02056000 
02095000 02102000 02103000 
02142200 02142250 


01121800 


= 


DECLARED IN SEGMENT 84 aT 01774140 


DECLARED IN SEGMENT 83 AT 017614000 


01120500 
01370880 


00529000 


00689000 
00967140 
01060000 
01418570 
01465300 
01587000 
014639000 
01757810 
02023000 
02057000 
02104000 


DECLARED YN SEGMENT 60 AT 01115100 


OccURS AT 01370920 


01465800 


01121100 


00762000 
00967150 
01084000 
04418575 
041572000 
01588000 
01640000 
041757820 
02028000 
02058000 
02405000 


DECLARED IN SEGMENT 6 AT 00040150 


DECLARED IN SEGMENT 6 AT 00040170 


014121400 


00763042 
01000000 
01315000 
01418580 
04573000 
04591000 
04641000 
04757855 
02030000 
02075000 
02106000 


01121600 


009145000 
01001000 
01316000 


01438000 


01575000 
01592000 
01681000 
04757860 
02031000 
02081000 
02112000 


01121800 


00916000 
01005000 
01317000 


01439000 


01576000 
01596000 
01683000 
04757865 
02033000 
02082000 
02113000 


01370150 — 


00947000 © 


01006000 
01376000 


01440000° 


01579000 
01597000 
01684000 
01860000 
02044000 


02117520 


92087000 ~—” 


c% 


rN 


v/ 


*01611000**01648000**01652000* 01654000 


PD == FORMAT «= 
PDATADESC = BOOLEAN PROCEDURE em 
-00658600 .*00703000« 00744000 
01169500 01542000 01546000 


OCCURS AT 00490000 


OCCURS AT 04117300 


00763585 
013028000 
01163000 
01419000 
01757710 
02117510 


0077 3000 
04037000 
01166200 
01423000 
01757845 
02129400 


IN SEGMENT 6 AT 00040900 


IN SEGMENT 6 AT 00040200 


00409000 
00747000 
00773000 
00797000 
00930000 
01051000 
01280000 
01450000 
01706000 
01862000 
02009000 
02417540 
02147500 
02176000 


00411000 
00761000 
00775000 
00802000 
00932000 
01056000 
04280300 
01452000 
04709000 
01916000 
02011000 
02117550 
02148500 


46 AT 00771100 


OccURS AT 00867000 


"" DECLARED IN SEGMENT 70 AT 01371110 


01660000 


DECLARED -IN SEGMENT 76 AT 04538000 


OLAY =» STREAM LABEL = DECLARED IN SEGMENT 60 AT 01115800 == 
01116500 
ON == LABEL =" DECLARED IN SEGMENT 27 aT 00467000 = 
00484000 00489000 
ONEMIX ©" DEFINE ©" DECLARED IN SEGMENT 2 AT 00004000 
01209000 01545100 01697000 
OPFRAND ™™" BOOLEAN PROCEDURE =" DECLARED +N SEGMENT 10 aT 00669000 
*00676000*+*00680000* 00682000 00763440 00763450 00763580 
00972400 00973000 00980000 00992000 01012000 04026000 
01073000 01125000 04128000 01129000 01151300 04154400 
01168900 01295100 01298000 01301000 01418510 01418540 
01617000 01621000 01624000 01625000 01757505 01757530 
01921000 04973000 01983000 03994000 01995000 02417450 
OPTrON ©" DEFINE ** DFCLARED IN SEGMENT 10 aT 00153000 
01920000 041921000 
OUTERBLOCK == REAL ARRAY *= DECLARED IN SEGMENT 10 AT 014223000 
*01266000% 014349600 02149300 
01 » STREAM VARIABLE =» NAME PARAMETER #* DECLARED 
00040210 
02 = STREAM VARIABLE = NAME PARAMETER = DECLARED 
00040210 
Po o-* FILE =" DECLARED IN SEGMENT 2 AT 00016530 
00017200 00056000 00059000 00365000 00404000 00405000 
00644500 00645000 00646000 00649000 00666500 00667000 
00763420 600763460 6900763465 600763475 00763520 00763550 
00785600 00785700 00786000 00790120 00793000 00794000 
00893000 00894000 00908000 00942000 00920000 00922000 
00999100 01000000 01005000 01007000 01021000 01022000 
01084000 01095000 041151700 041169600 01276000 04277000 
01321000 04374000 01387000 04397000 04418570 04438000 
01571000 01615000 01644000 01680000 01689000 04705000 
01757620 01757760 041757830 01757885 01856000 01860000 
01964000 01967000 01979000 01985000 01985380 041986000 
02064000 02072n00 02116000 02117460 02117480 02117520 
02129190 02130000 02132000 02134000 02136000 02442200 
02173600 02173650 02173792 02173793 02173795 02475000 
Po =. pls VBRIAGEE ee NAME PARAMETER == DECLARED 1{N SEGMENT 
111 
“PA =e DEFINE «= ODEC)ARED IN SEGMENT 10 AT 00807470 
00807550 00807560 00807570 00807575 
PA wm REA! == DECLARED IN SEGMENT 82 AT 04758200 
02017000 02054000 02057000 
PACKETS = DEFINE =" DFCLARED IN SEGMENT 40 AT 00110400 
PAR «= LABEL =" DECLARED IN SEGMENT 50 AT 00813000 == 
00826990 00827000 00837100 
PARERR **" FORMAT ** DECLARED IN SEGMENT 54 aT 00845000 
00867000 
PAROW *™ HEFINE =" MECLARED IN SEGMENT 10 AT 00807470 
00807580 01985390 
PBIT ** STREAM VARIABLE ©" VALUE PARAMETER 
04371120 01371190 01371400 
PcOL == INTEGER =" MECLARED IN SEGMENT 74 at 01529000 


DECLARED IN SEGMENT 10 AT 00695000) #= 


00753000 
02129110 


00763032 


00763445 


00807330 


FORWARD AT 00651100 
01076000 


00942400 


00790410 
01040000 
01166400 
01465900 
01757870 
02139000 


00412000 
00762000 
00781000 
00804000 
00935000 
01057000 
01309000 
04470200 
01727000 
01919400 
02012000 
02119170 
02149050 


00967100 


04042000 


04167000 
01468600 
01757890 
02142100 


00623000 


00763042 


00785500 
00807390 
00941000 
01060000 
01310100 
01551000 
01735000 
01925000 


02020000 © 


02119220 
02149360 


01132000 


00968000 
014058000 
01167100 
01613000 


01858000 


02142120 


00624000 


00763044 © 


00785550 
00807540 
00967160 
01061000 
01311000 


04569000 ~ 


01741000 
01961000 


02061000" 


02129000 


02173590 


01135000 


OC) 


v) 


CY 


PEOIO =" NMEFINE =" MECLARED IN SEGMENT 10 AT 00164140 
PINGO * MEFINE *" DECLARED IN SEGMENT 10 AT 00164320 
01985250 


PLUS "=" INTEGER *" NAME PARAMETER =" DECLARED IN SEGMENT 10 aT 01335000 


01332000 *01345000% 

PP =» BOOLEAN *" DECLARED IN SEGMENT 31 at 00658100 
*00658500« 00658600 00666900 

PR w= LABFL == PECLARED IN SEGMENT 50 AT 00812010 


PRESENCFEBIT = STREAM VARIABLE #= VALUE PARAMETER ==" DECLARED IN SEGMENT 70 AT 01370530 


01370550 04370630 
PREVLINK == REAL = DECLARED IN SEGMENT 56 AT 00948000 


00979000 00982000 *00987000% 00994000 00992000 01003000 01006000 *01010000* 01014000 *01047000« 01020000 


01021000 01023000 01026000 01027000 01028000 01041000 *01049000* 


PRINT "" neEFINE ©™ pecbaRED IN SEGMENT 10 at 00568200 
00650000 00807350 041152000 04213300 04281720 04284780 01281855 
02142300 02143000 02148000 02149000 02449100 07449300 02449400 
PRyNTARRAY =" ofriNe ee peclaRrn IN SEGMENT 10 aT 008607450 
00807550 00807560 00807570 00807575 04985385 024371400 02417200 
PRINTARRAYROW == PROCFDURE == DECLARED IN SEGMENT 10 AT 00807100 
00807440 00807550 00807560 00807570 00807575 00807580 04985385 
PRINTCOMMONVALUES # PROCEDURE == DECLARED IN SEGMENT 2 AT 00017000 
00017210 02173791 02174500 
PRINTCORE =" PROCEDURE *" DECLARED IN SEGMENT 10 AT 00569000 
00807350 014152000 04243300 04284720 01281780 041281855 04757770 
02143000 02148000 02149000 02149100 02149300 02149400 02160000 
PRINTMCPOPTTONS "= PROCENURE ™™" MECLARED IN SEGMENT 10 aT 00407000 
00413000 00909000 
PRrNTQUFUE =" PROCEDURE = DECLARED IN SEGMENT $0 aT 01757300 
04757980 04985420 04985150 01985200 01985250 014985300 04985375 
PRINTSELECTEDARRAYS = PROCEDURE == DECLARED IN SEGMENT 10 AT 00807500 
00807900 027472;00 
PRNTARBLE ee DEFINE = DECLARED IN SEGMENT 10 AT 00155000 
- 02047000 
PRo #" INTEGER = DECLARED IN SEGMENT 70 aT 01357000 
*01463000* 


PROC = INTEGER = VALUE PARAMETER "™" DECLARED IN SEGMENT 40 AT 01757310 


01757300 04757470 01757505 01757960 
PROCTIME == DEFINE ™* DECLARED IN SEGMENT 10 AT 00138000 
PROGS =" REAL ARRAY ©" pecblARED IN SEGMENT 10 AT 01349005 

01349680 *01611000%«01650000%«0 1654000%%01660000% 04663000 041667000 
PROWS **  NTEGFR ** OFCLARED IN SEGMENT 10 aT 01349005 

01349670 *01611000% 01650000 *04654000* 01654000 04660000 04662000 


04757770 
02160000 


04985390 


04757840 
02165000 


04677000 
01664000 


#02120225% 02129400 02129150 02129180 02142100 02142120 *02142200% 02142250 


PRT =" DEFINE = DECLARED IN SEGMENT 10 AT 00130000 
00721000 00744000 00942100 00943000 01542000 04543000 01572000 
PRTBASE @™" DEFINE =" DFCLARED IN SEGMENT 2 aT 00025000 
; 00085000 00845000 00856000 00858000 00859000 00861000 00913000 
PRTCOnk @* INTEGER @= necbaREp IN SEGMENT 10 aT 00769900 
00785400 *00893000%*00894000%*09120195* 
PRTF == «NTEGER =" DECLARED 1{N SEGMENT 74 AT 01522000 
014543000 04573000 
PRTFILE = FORMAT »= DECLARED IN SEGMENT 51 AT 00814100 
00849200 j 
PRTFILEMESS «= STREAM PROCEDURE == DECLARED IN SEGMENT 46 AT 00771100 
00771155 00785400 
PRTH =» INTEGER we NECLARED IN SEGMENT 74 AT 01522000 
*01543000% 01573000 


00923000 


01757840 
02165000 


02117100 


02119250 


01681000 
01665000 


01281600 


02119250 


02117200, 


02142000 


041673000 


02142000 | 


02142300 


014674000 


mn 


~™ 


ra 


O O O 


PRTITEM == FORMAT == DECLARED IN SEGMENT 55 AT 00903000 
00915000 00925000 
PRTLOG ome INTEGER == VALUE PARAMETER == DECLARED IN SEGMENT 10 at 00763020 a 
00763028 00763030 00763032 
PRTLOg ° = INTEGER = VALUE PARAMETER =" DECLARED IN SEGMENT 10 aT 00807110 
00807100 00807970 00807310 00807330 %00807370x <e th coadlen, 4 
PRTMAX =" INTEGER == DECLARED IN SEGMENT 2 AT 00024000 
003295000 00332000 00334000 00664000 00763030 00807310 *00856000* 00858000 00923000 014164100 01266000 
01267000 01281600 02006000 021491400 CN Se 
PRTNAME ©" REAL ARRAY = DECLARED IN SEGMENT 10 AT 00082200 
00785400 00849900 
PRTOK =" ROOLEAN "=" DECLARED IN SEGMENT 10 aT 00092100 
*00942100e*01542000e 01698100 
PRTOUT *™ FORMAT @" DECLARED IN SEGMENT 37 AT 00738000 . = es 
00761000 ~“ | ae ee ee ; 
PRTROW == REAL == prcbLARED IN SEGMENT 36 aT 00734000 
¥00753000* 00754000 00758000 
~PRTS == REAL ARRAY == DECLARED IN SEGMENT 10 AT 00083000 
#00362000* 00365000 00720000 00724000 00722000 00723000 00724000 00725000 00726000 00727000 00728000 
00759000 00730000 00744000 00763440 00763445 00763470 00790110 009807550 00807560 00807570 00807575 
00807580 00884000 00886000 00888000 00891000 00942100 00965000 00966000 00967000 00967100 ‘00967120 
00967130 00967180 00972500 00973000 01026000 01073000 01076000 01132000 01135000 01260000 01264000 
01281620 041292000 01310000 04540000 01542000 01543000 01572000 04711000 01723000 04733000 01757434 
01757436 01757440 01757450 01757455 01857000 91858000 04918200 04949400 04919200 01920000 04924000 
01971000 04973000 01985120 04985450 04985200 01985250 01985300 04985375 01985385 01985390 04987000 
01988000 01989000 01991000 01995000 02043000 02014000 02015000 02016000 02047000 02064500 02065000 
02066000 02067000 02068000 02069000 02117100 02117150 024171360 07417200 02117430 02117440 0213174507" ~ 
02129110 
w= DEFINE == DECLARED 1N SEGMENT 2 aT 00027000 
00078000 00083000 00364000 
REAL DECLARED IN SEGMENT 10 AT 00092300 
00942100 04167700 01542000 04543000 04544000 01546000 01573000 04575000 01576000 
"" INTEGER == DECLARED IN SEGMENT 2 AT 00004000 Ay 
01209000 015451300 01697000 
ew INTEGER *" DECLARED IN SEGMENT 2 AT 00004100 
01457110 01742140 
we ROOLFAN ™" DFCLARED IN SEGMENT 2 aT 00004200 
00622000 00645000 00807295 *00807300*x00807435* 
we ROOLEAN "=" DECLARED IN SEGMENT 2 at 00004300 
w= ROOLEAN == DECLARED IN SEGMENT 2 AT 00004400 
00056000 00364000 00843000 
ve fMEFINE =" MECLARED IN SEGMENT 40 AT 00135000 
REA}, == DECLARED IN SEGMENT 82 AT 04758200 
020147000 02019000 020571000 
FORMAT DECLARED IN SEGMENT 84 AT 01777000 
02053000 
"es DEFINE "" DECLARED IN SEGMENT 10 aT 00164400 
02129110 
me NEFINE =" nECLAREM IN SEGMENT 10 AT 00157000 
00729000 
we DEFINE =" MECLARED IN SEGMENT 10 AT 00458000 
00730000 
REAL * DECLARED IN SEGMENT 60 AT 04404000 
01129000 01130000 01151300 01154600 01163000 04164000 01164100 01168600 01168700 01168900 ° 01169200 
01169500 04169550 
BOOLEAN == DECLARED IN SEGMENT 60 AT 01104000 
*01151300%*01163000* 01164000 01168550 01168900 


i) 


cae 


{ } 


QTIMES "" DEFINE "" DECLARED IN SEGMENT 10 aT 00164275 
00807570 


Q1 "= FORMAT =" DECLARED IN SEGMENT 80 aT 01757340 OMe: 4 arenas 


01757580 01757810 
Q@2 "= FORMAT =" DECLARFO IN SEGMENT 80 aT 01757350 


om 


01757720 : feet. | aie he: leh ee Setattnee See oh 


Q3 = FORMAT ==" DECLARED IN SEGMENT 80 aT 04757352 
01757855 

Roo" REAL =" DECLARED IN SEGMENT 10 AT 00082000 5 PRE RT ae 
*00763595« 00763600 *00763605* 00763615 01546000 04576000 04579000 01580000 01583000 01584000 014587000 
01588000 01591000 01592000 01593000 01596000 01597000 01600000 04601000 04605000 01606000 01607000 
01609100 01612000 01692000 *02120150* 02129110 02129130 *02129140% 02429450 02139000 02142000 021421207 ° > - 
02142200 02142300 *02149300% 02149400 

Ro o== INTearR ==" DPCLARFD IN SEGMENT 29 aT 00588000 


*00638000* 00639000 00641000 00642000 00643000 00644000 the e 4 BPR SE «Goes eh ae ge 


R o==  NTEGER = DECLARED IN SEGMENT 32 AT 00674000 
*00675000* 00679000 


Ro owm= INTEGER = DECLARED IN SEGMENT 33 AT 00688000 ee i a ria ae 


*00689000* 00692000 
Roem REAL °= DECLARED IN SEGMENT 60 AT 01104000 


01128000 01164300 01164400 01164500 01164600 04168900 *01169000% : , . is nS te 


R oo" REAL = DECLARFD IN SEGMENT 63 AT 01254000 
01260000 01262000 01263000 01268000 01270000 01272000 01273000 
R o"™" REAL '" DecbaRrpo IN SEGMENT 66 AT 01287000 
01295100 01295700 01298000 01299100 01300000 04301000 04304000 
Rows REAL o*" DecLARFD +N SEGMENT 70 AT 01358000 
*OLN{B575% 04423000 401441000% 04443000 01447000 ¥01465200% 04465600 04466400 04466300 rr a 
R ose STREAM VARIABLE = VALUE PARAMETER = DECLARED IN SEGMENT 70 AT 01370260 
04370270 04370480 
Ro om= REAL = DECLARED IN SEGMENT 77 AT 04703000 
01711000 *04718000*% 01719000 
Ro om== REAL =" DECLARED IN SEGMENT 79 AT 01757335 
#01757505* 01757530 01757580 01757590 01757600 01757710 01757720 --04757730 01757770 014757810 01757820 © 
01757840 01757845 01757895 «01757960 
Roo" REAL "" pDecbaRrp IN SEGMENT 82 aT 01758200 
01858000 01860000 01862000 01914000 01921000 01924000 01961000 - 01964000 01967000 %014973000%- 01976000: ~-—~ ~~ 
01977000 01978000 01983000 #01984000#%02005000%#02006000% 02007000 02008000 
Ra os REAL ** pFCLARED IN SFGMENT 82 aT 01758200 
02016000 02044000 02047000 | 
RANGE = BOOLEAN e= VALUF PARAMETER == DECLARED 1N SEGMENT 10 AT 00656000 
00653000 00654000 *00658700* 00669000 
RANGE = FORMAT = pECLARED IN SEGMENT 57 AT 00956000 
01000000 01005000 01021000 
RCW == BOOLEAN == DECLARED IN SEGMENT 70 aT 01366000 
*01465100**01465600% 01465700 *01466000*% 01466600 A eee 
RDOCTARLE "= DEFINE "= DECLARED IN SEGMENT 10 AT 00152000 
02016000 
READARRAY =" PROCEDURF =" DECLARED IN SEGMENT 2 AT 00041000 
00060000 00066000 00843000 00845000 00846000 00847000 00848000 
RELOAD "= BOOLFAN = prcLaRrD IN SEGMENT 10 AT 00082150 
00824100 00839000 00850100 *02119145%"02149280% 02120135 *02173790x re ae ee es ee 
REPEATING = BOOLFAN == DECLARED IN SEGMENT 10 aT 000821450 
00834095 02173720 *02173740% 


REPLY ==" NMEFINE == DECLARED IN SEGMENT 10 AT 00164160 A Stoeger ag tr asa 


REST e* STREAM LABEL *= DECLARED IN SEGMENT 70 aT 01371135 == OCCURS AT 04371380 
01371270 013714300 
RESTART ==" LABEL "=" DECLARED IN SEGMENT 10 AT 00080500 =» OCCURS aT 02120900 


i 
_ 


CS 


02173800 
Resuby = INTEGER =" NaMe PARAMETER &* 
01332000 *01344000« 


RETURN =" WDEFINE @* PECLARED IN SEGMENT 10 aT 00161000 
00888000 

RJE = DEFINE == DECLARED IN SEGMENT 10 AT 00110100 
01985350 

RJEWAITQ == DEFINE om DECLARED IN SEGMENT 10 AT 00164335 
01985375 

RO -** INTEGER == DECLARED IN SEGMENT 74 AT 01529000 

#01662000% 01663000 *01672000% 01675000 01677000 *01679000x 

ROW #" OFFINE °°" DECLARED IN SEGMENT 10 AT 00118000 
00547000 00551000 00606000 00608000 00615000 00617000 
00689000 00763600 00763615 00774000 00777000 00780000 
00832100 04149000 01516000 04517000 01559000 04564000 
02129180 

RP =m INTEGER == DECLARED IN SEGMENT 74 AT 01529000 

RS == REAL =" PECLARED IN SEGMENT 82 AT 04758200 
02046000 02039000 02041000 

RT = FORMAT = DECLARED IN SEGMENT 84 AT 04776000 
02043000 

RTD =" REAL ARRAY =" DECLARED IN SEGMENT 140 AT 00419000 
00773000 *00777000* 00778000 *00783000* 00784000 00786000 
00803000 

S 7" STREAM VARtTABLE = NAMe PARAMETER *®= DECLARED IN SEGMENT 
00037000 

S =" STREAM VARTABLE =" NAME PARAMETER © DECLARED IN SEGMENT 
00564000 

S =e STREAM VARTABLE = NAME PARAMETER == DECLARED IN SEGMENT 
00820000 

S == STREAM VARIABLE = NAME PARAMETER ew DECLARED IN SEGMENT 
041234000 

S =" STREAM VARIABLE *= NAME PARAMETER ** DECLARED IN SEGMENT 
01328000 

S =* FORMAT =" DECLARED IN SEGMENT 71 AT 01369000 
01438000 

S =" INTEGER #" DECLAREN IN SEGMENT 74 aT 04522000 
01606000 04607000 01693000 01695000 

S ** STREAM VARIABLE = NAMF PARAMETER == DECLARED IN SEGMENT 
04754000 

S =" REAL ** DECLARED IN SEGMENT 79 AT 01757335 

*01757845* 01757855 041757860 04757865 01757870 04757875 


DECLARED 


01681000 
00639000 


00783000 
01757600 


00787000 


IN SEGMENT 10 AT 01335000 


01685000 
00640000 


00796000 
014757875 


00788000 


2 AT 00036000 


10 AT 00560000 


50 AT 00818000 


62 AT 01231000 


10 AT 01325000 


10 AT 01750000 


01757890 «04757895 


"" DFCLAREN IN SEGMENT 70 AT 01370260 


S o™" INTEGER =" DECLARED IN SEGMENT 82 AT 01758300 
01989000 01990000 01993000 01997000 02002000 
‘S$ o7* REAL 7" NAME PARAMETER "= DECLARED IN SEGMENT 
01811000 01818000 01819000 «01820000*« 01822000 
SALF @" STREAM VARIABLE =" VALUE PARAMFPTER 
014370270 04370440 
SAVEAREA == STREAM LABEL == DECLARED IN SFGMENT 60 AT 04415800 
04416600 
SAVERESULT ==" DEFINE == DECLARED IN SEGMENT 10 aT 001647100 
SAVERESULTS DEFINE == DECLARED In SEGMENT 10 AT 00107000 
SO = INTEGER = DECLARED IN SEGMENT 74 AT 01522000 
01584000 01612000 *01613000« 01617000 
SE == FORMAT *™ DECLARED IN SEGMENT 83 aT 01759000 
02003000 
SEC =" INTEGER =" NAME PARAMETER ™™ 


00641000 00643000 
00799000 00824110 00832000 
01978000 02038000 02040000 


*00799000**00800000* 00801000 


*02019000% 02021000 *02071000* 02073000 *02117490% 02117500 
82 AT 01814000 


=m OQOCCURS aT 014117000 


DECLARED IN SEGMENT 10 aT 00452000 


00675000 


C} 


C) 


5 


oe 


00451000 *00455000«*00459000* 
SECONDS "" ODFFINE =" DFCLARFD IN SEGMENT 10 AT 00427000 
00784000 00789000 00792000 00793000 00801000 00802000 00803000 00804000 
SEG =" STREAM VARYABLF = VALUE PARAMETER = DECLARED IN SEGMENT 10 AT 01349120 
01349130 043495920 
SEG == INTEGER == NAME PARAMETER == DECLARED IN SEGMENT 40 AT 01349520 
01349500 01349560 01349570 01349580 01349600 04349610 01349630 074349640 
SEG ©" INTEGER = DECLARED IN SEGMENT 70 AT 01357000 
01444000 01447000 01448000 01449000 01465600 «01466000*% 01466100 04466300 
SEG ©" REAL 7" DECLARED IN SEGMENT 74 aT 01531000 
*01616000% 01617000 01623000 01639000 01657000 *04670000* 
SEGH "" FORMAT "" necLaRep IN SEGMENT 76 aT 01533000 
01645000 
SEGMENT = FORMAT =" peclaRrp IN SEGMENT 76 AT 01537000 
01639000 073680000 
SEGS == INTEGER == MECLARED IN SEGMENT 8 aT 00046000 
*00049000**00050000* 000514000 00054000 
SEGS == REAL w= DEC|ARED IN SEGMENT 74 AT 04530000 
01613000 01616000 *01664000%*01667000* 01670000 
SEGZERO == REAL ARRAY ©" DECLARED IN SEGMENT 2 AT 00034000 
00966000 00068000 00069000 00070000 00071000 00072000 00073000 00843000 
SEPTIc "= FILE ©" DFCLARED IN SEGMENT 41 aT 00763145 
00763485 00763495 00763575 
SEPTICTANK =" DEFINE == DECLARED IN SEGMENT 10 aT 00110300 
SEQUENCE =e PROCEDURE == pFCLARED IN SeGMFNT 10 aT 01224000 
01251000 04275000 04281670 04312000 01663000 
SETUPXNAMEANDXNAMS =" PROCEDURE =" DECLARED IN SEGMENT 10 AT 00246000 
00863000 
SGLTO0G *= BOOLEAN = DECLARED IN SEGMENT +0 AT 00082100 


01349650 


01469800. 


00666500 #*00749400%400730100%%0 1277 100%%01279 100440 4284 580%«01281900%*00012100%e02118200% 


SGM =" RFAL = DECLARED IN SEGMENT 74 aT 01530000 
01617000 04618000 01627000 01629000 01631000 *01681000« 04682000 04683000 
SHAREDISK 9" DEFFINE e&* PECLARED IN SEGMENT 10 AT 00108000 
00790100 02117400 
SHEET "" pEFINE ©" pECLARED IN SEGMENT 10 AT 00133000 
00724000 . 
SINCSLASTHL "* DEFINE ©" DECLARED IN SEGMFNT 10 aT 00425000 
00803000 00804000 
S1Z =" INTEGER @* DrcLARED 1N SEGMENT 74 aT 01529000 
*01620000% 04627000 04623000 04624000 01697000 01628000 *01635100* 04639000 
SIZE = INTEGER =" npECLARED IN SEGMENT 39 AT 00763024 
*00763034* 00763040 
SIZE == INTEGER =" pECLARED IN SEGMENT 47 aT 00807130 
*00807340% 00807350 
SIZE o"™" STREAM VARIABLE 7" VALUE PARAMETER =" DECLARED IN SEGMENT 60 AT 01115400 
01115500 01120200 01120700 - 
SIZEF "" NEFINE =" neECLARED IN SEGMENT 65 Ay 01281570 
01281630 01281640 01281660 01281850 
SKIPEFE == LABEL =" PreLARED IN SEGMENT 70 AT 01361000 =» OCCURS AT 01418600 


01684000 


01640000 


SKIPP1NG se STREAM VARTABLE == VALUE PARAMETER == DECLARED IN SEGMENT 40 aT 00536000 


00537000 00540000 
SLATE == DEFINE == DECLARED IN SEGMENT 10 AT 00421000 
01989000 
SOMOKB "= BOOLEAN == DECLARED IN SEGMENT 40 AT 00498000 
*01023000*%*02120420% 02157000 
SOMOKF =" BOOLEAN =" DECLARED IN SEGMENT 10 AT 00498000 
*01003000%*02120415« 02155000 


01349690 


01684100 


01641000 


01349700 


01656000 


{ 


C) 


Cy 


Cj 


os 


() 


SP == STREAM VARIABLE ©" VALUE PARAMETER ™= DECLARED IN SEGMENT 10 AT 01325000 
01326000 01328000 
SPfo "= OFFINE =" DrFCLARED IN SEGMENT 70 aT 01365100 
01381100 
SPO »" FILE =" DECLARED IN SEGMENT 2 AT 00016520 
00866000 00867000 00868000 00893000 00894000 02449230 02419380 
SPREAD =" INTEGER PROCEDURE * DECLARED IN SEGMENT 10 AT 01512000 =" FORWARD AT 04351000 
01387000 01394000 01418575 01439000 01441000 01465200 *01516000* 014519000 041543000 04576000 04580000 
01584000 01568000 01592000 01597000 01601000 01606000 . eee eS 
SQUEEZE aan eae == orclAREp IN SEGMENT 70 aT 01362000 ** OccURS AT 01401000 
1 0 
STACKOVFRFLOW == NEFINE @* DECLARED IN SEGMENT 10 AT 00160000 > Bo ay. ie fo2 
00886000 
STARBLANK * ALPHA = MECLARED IN SEGMENT 7a AT 014523000 
*01632000%*01636000* 01641000 
STARCOUNT = INTEGER == DECLARED IN SEGMENT 29 AT 00588000 
*00596000* 00623000 00624000 
STARD =" ROOLEAN = DECLARED IN SEGMENT 29 aT 00587000 
*00610000% 00620000 +*00625000*«00629000% 00635000 
STARS =" FORMAT =" NECLARED IN SEGMENT 16 AT 00297000 


00405000 02129000 02136000 , oe : —~-- ™ 


STARS =" REAL ©" DECLARED IN SEGMENT 74 AT 01526000 

*01539000% 01566000 01567000 01640000 01682000 01684100 
STARZ ™" FORMAT *™" neclLARED IN SEGMENT 16 AT 00298000 

00623000 00624000 
STATION ©" DEFINE =" MFCLARFD IN SEGMENT 10 AT 00164240 

00807575 00807580 04985385 01985390 
STATIONMESSAGEHOLDER =e DEFINE = DECLARED tN SEGMENT 10 AT 00164310 

01985120 


STATISTICS =e DEFINE == DECLARED IN SEGMENT 10 AT 00109000 ee 


STAX = REAL ARRAY ee DECLARED IN SEGMENT 10 AT 00095000 


*01089000% 01197000 *£01198000%«01203000*% 01375000 04377000 01381100 04382000 01399000 01438000 *OL691000% 


*01695000%*01698300%«01707000% 01716000 01718000 *01721000**01731000**01742130% 
STAXMAX "=" DEFINE =" DFCLARFD IN SEGMENT 10 aT 00094000 
00095000 
STK =" INTEGER =" DECLARED IN SEGMENT 60 aT 01112000 
*011940004*01195000e 01197000 041198000 
SUBLEVEL =» REAL ==" DECLARED IN SEGMENT 2 AT 00028000 
*00068100*% 00409000 
SW == STREAM VARIABLE == DECLARED IN SEGMENT 60 AT 01115700 
*0414¢8900% 04421700 
SYL «® STREAM VARIABLE = VALUE PARAMETER == DECLARED IN SEGMENT 10 AT 01349420 
01349130 01349990 . 
SYL =" INTEGER 7" VALUE PARAMETER ** DECLARED IN SEGMENT 10 AT 01349520 
01349500 04349510 04349570 01349610 01349640 04349700 
SYSID =" FORMAT ©*" pECLARED IN SEGMENT 22 AT 00444100 
00790120 
SYSNO *" HWEFINE =" nECLARED IN SEGMENT 10 aT 00164305 
00790110 
T =" REAL ARRAY =" NECLARED IN SEGMENT 6 aT 00040330 
00040270 00040280 
T |= REAL ARRAY =" YMFCLARED IN SEGMENT 12 AT 00270000 
*00272000* 00294000 
T == INTEGER =" DECLARED IN SEGNENT 26 AT 00454000 
*00456000% 00457000 00458000 00459000 
T =" INTEGER **" DECLARED IN SEGMENT 31 AT 00658000 


*00658500% 00658600 00659000 00660000 00661000 ° " : _ : ee 


ay 


A 


Op “6. 36 «Or 


Oo." 


©. © 


OO 


Oy OD 


C) 


T == NTEeER =" ODE 
00967100 0096 
01059000 

T == DEFINE == DECLARED IN SEGMENT 69 aT 01401100 


CLARFO IN SEGMENT 56 aT 00963000 
74 


04449100 04466400 04466600 04366900 01167300 04467700 04167800 04468;00 04468300 


01168900 04169400 01200000 04210000 01243000 

T == INTEGER =" DECLARED IN SEGMENT 62 AT 04229000 
*01238000**01239000* 01242000 01245000 01247000 

T ** STREAM VARIABLE = DECLARED IN SEGMENT 10 AT 01349150 
01349230 01349770 01349300 

T ™™ STREAM VARIABLE ™" DECLARED IN SEGMENT 70 aT 01370050 

T == REAL *" DECLARED IN SEGMENT 79 AT 01757335 
01757870 01757890 01757895 

TA ™= REAL ™™ DECLARED IN SEGMENT 82 AT 01758200 
02013000 02027000 02032000 02076000 

TABLELOOKUP = PROCEDURE = DECLARED IN SEGMENT 10 AT 00316000 
00335000 00361000 

TABLESLOC =" INTEGER = DECLARED IN SEGMENT 10 aT 00497000 
*01058000«% 01167700 *02120165* 

TAR =" DEFINE ©* DECLARED IN SEGMENT 10 AT 00164430 
01919100 

TB == REAL ARRAY &" DECLARED IN SEGMENT 82 aT 01772000 


*04863000% 01915000 401926000 01962000 01965000 04968000 02023000 07035000 02038000 


02059000 02061000 02075000 02089000 02096000 02107000 021144000 09116000 
TOFID °* nEFING ©" pWECLARED IN SEGMENT 10 ar 00082310 
00785640 00834060 00834085 00834095 02449360 001449370 02419380 07473700 
TOMFID ©" DEFINE == OFCLARED IN SEGMENT 10 aT 00082300 
00785600 00834050 00834080 
TEMP == DEFINE #= DECLARED IN SEGMENT 410 aT 00433000 
TF == FORMAT * DEC)ARED IN SEGMENT 83 AT 01764000 
01862000 01925000 01961000 01964000 01967000 
TFXT "= FORMAT 9" DECLARED IN SEGMENT 83 aT 01763000 
01914000 
THISISAMOM ** STREAM LABEL "™" QECLARED IN SEGMENT 70 AT 01370570 =" OCCURS AT 01370900 
01370830 
THISROW "=" REAL ARRAY =" DECLARED IN SEGMENT 10 AT 00558000 
00615000 00618000 00649000 00630000 
TIM #" PROCEDURE *"* DECLARED IN SEGMENT 414 aT 00763290 
00763350 00763515 
TIMEANALYZEND = DEFINE = DECLARED IN SEGMENT 10 AT 00420000 
00792000 00793000 
TIMELASTHL @* DEFINE = DECLARED IN SEGMENT 10 AT 00424000 
00801000 00802000 
TIMES == PROCEDURE = DECLARED IN SEGMENT 10 AT 00451000 
00460000 00784000 00792000 00801000 00803000 
TIMETAKEN =" QHEFINE ©" DECLARED IN SEGMENT 10 at 00422000 
00784000 00789000 
TINU == DPFINE =e DECLARED ¢N SEGMENT 10 aT 00146000 
02043000 
TINUOK = BOOLEAN #8 DECLARED IN SEGMENT 82 AT 01758400 
*02043000* 02075000 
TOG == BOOLEAN == DECLARED IN SEGMENT 47 AT 00807140 
*00807260% 00807350 *00807400* 
TOGLE =" NEFINE ©" DECLARED IN SEGMENT 10 AT 00128000 
00763440 01857000 01858000 01919200 
TOO =" INTEGER =" VaLUE PARAMETER *" DECLARED IN SEGMENT 10 aT 00571000 
00569000 00570000 *00598000* 00599000 00602000 00638000 00648000 


30 00967140 00967450 00972400 «00978400 01034000 *01047000% 01954000 01057000 


01168500 01168550 


C) 


TOO =" Real ow VALUF PARAMETER *" DECLAREn IN SEGMENT 10 AT 01096500 


TOO == INTEGER == VaLuF PARAMETER =" DECLARED IN SEGMENT 10 AT 01099000 
01997000 04098000 04143000 

TOO == REAL. == VALUF PARAMETER e= DECLARED IN SEGMENT 10 AT 01281520 
04281500 04284510 04281640 014284690 01281720 04283730 01281855 

ToS = INTEGER "= DECLARED IN SEGMENT 70 aT 01357000 


*01375000% 01376000 *01380000*% 013861000 01387000 +*014389000%+*01392000« 04394000 


01402000 £01403000%%01408000% 01412000 %01418560% 01418570 01418575 01419000 
01455000 01456000 01457000 01457130 01458000 01465500 
TOSOR+qG 7" REAL =" neclLaAREn IN SEGMENT 70 Az 01359000 
*014400000* 04408000 
TOTALPROCS == FORMAT == DECLARED IN SEGMENT 64 AT 01256000 
04280000 
TPNAME = REAL ARRAY =e DECLARED IN SEGMENT 10 AT 00082250 
00785600 00785610 *00834050**00834060+%%00834070% 00834080 00834085 00834095 
02119380 02173700 
TRANSACTION ©" DEFINE =" DECLARED IN SEGMENT £0 AT 00164170 
TRITEM "* FORMAT ©@* DECLARED IN SEGMENT 714 aT 01368000 
01387000 01394n00 01418570 01465200 
TRYANOTHER ©* LAapEL "= pECLAREN IN SEGMENT 88 aT 02119140 7" OCCURS AT 02119150 
02119260 
TS "™ REAL "" DECLARED IN SEGMENT 82 AT 01758200 
02013000 02019000 02024000 
TUSTARYMIX =" NEFINE © DECLARFD IN SEGMENT 10 aT 00164270 
TYP w= YNTeGER == prcLARED IN SEGMENT 35 aT 00740000 
00741000 00742000 007;3000 
TYP = REAL == DECLARED IN SEGMENT 52 AT 00873000 
00885000 00887000 00889000 00897000 
TYP w= REAL = DECLARED IN SEGMENT 58 AT 01072000 
01081000 01082000 
TYP #*" INTEGER *" DFCLARED IN SEGMENT 63 aT 01255000 
01260000 01268000 01269000 
TYP =" INTEGER ©" DECLARED IN SEGMENT 66 aT 01286000 
01292000 
TYP #™ INTEGER *" DFCLARED IN SEGMENT 74 aT 01522000 
01540000 01556000 01612000 
TYP ==" INTEGER *" DeCLARED IN SEGMENT 82 aT 01758300 
TYPE == STREAM VARIABLE =* VALUE PARAMETER =" DECLARED IN SEGMENT 60 AT 04115300 
01115500 01117700 04119900 
TYPMAX = DEFINE == DECLARED IN SEGMENT 10 AT 00113000 
00295110 00594000 00953000 04149100 
UA em REAL, = DECLARED IN SEGMENT 82 AT 04773000 
02066000 02080000 02087000 02117440 02117510 
UFO =" FORMAT =" DECLARED IN SEGMENT 85 AT 01853000 
02079000 
UNIT =" MFFINE *" DFCLARED IN SEGMENT 10 aT 00145000 
02066000 
US w= REAL @" DECLARED IN SEGMENT 82 AT 04773000 
02066000 02074000 02077000 021147440 02447450 
USERCODE =* REAL == DECLARED IN SEGMENT 79 AT 01757335 
04757710 04757740 04757750 
USERSTA = DEFINE ==" DECLARED IN SEGMENT 10 AT 00164260 
Vom== REAL »* DECLARED IN SEGMENT 58 AT 01072000 
01081000 01082900 01090000 


Vo=" REAL ™* DECLARFD IN SEGMENT 62 AT 01230000 
#01242000% 01248000 
Ve" REAL =" DECLARFD IN SEGMENT 70 AT 01358000 


01396000 01400000 «01401000 


01423000 *01424000% 01454000 


00834200 


02119360 


“02119370 ee 


is 


Vy oF 
VAL 


VARIF 


VBED 

VERIF 
VERS] 
VJOBN 
VLINK 


VMSTA 
vO «= 
W =a 


¥ == 
Yon 
Wo. 
WATT 
WC 
WFO 
WHAT 
WHAT 
WHAT 
WHAT 
WHAT 
WHAT 
WHAT 


WHATF 


01478510 014186540 01419000 


01420000 01421000 01423000 *01438000*+*01439000% 01441000 


REAL ** DECLARED tN SEGMENT 77 AT 01703000 


*01742000% 047143000 


me STREAM VARTABLE = VALUE PARAMETER e= DECLARED IN SEGMENT 70 AT 01370940 


01370950 01374070 
Y == BOOLEAN PROCEDURE «= 


02069000 02117440 


DECLARED IN SEGMENT 82 AT 01811000 
*04847000% 01823000 04989000 


02013000 02014000 020145000 02016000 02017000 02066000 02067000 02068000 


ww REAL ©" DECLARED IN SEGMENT 10 AT 00093000 
91076000 01077000 *01079000% 01081000 01084000 01439000 *02120160* 
Yo orr DEFINE *" QDECLARFD IN SEGMENT 82 aT 01823100 


02013000 02014000 02015000 


ON =" RFA 
*00068200% 00785550 


02016000 02017000 02066000 02067000 02068000 02069000 


FAL =" peEcLAREN IN SEGMENT 2 aT 00028000 


UM = REAL =" nECLARED IN SEGMENT 10 AT 00093000 


01073000 04074000 01075000 


01977000 01080000 «02120155 


ew REAL ** DECLARED IN SEGMENT 56 AT 00948000 


00980000 00981000 00982000 
01012000 01013000 01014000 
01039000 01040000 01041000 


00984000 00985000 00988000 00990000 09992000 00993000 00996000 00997000" ~~ 


01015000 01018000 01028000 01029000 01030000 01036000 01037000 01038000 
01942000 01043000 01044000 01047000 01048000 01056000 : 


RT e* REAL =" neECLARED IN SEGMENT 56 AT 00947000 


00973000 00974000 00975000 


00976100 00976200 


~ REAL == DECLARED IN SEGMENT 56 AT 00946000 


00968000 00969000 00970000 


00974000 00972000 00979400 00976300 00976300 


STREAM VARIABLE © VALUE PARAMETER «== DECLARED IN SEGMENT 2 AT 00036000 


00037000 


STREAM VARIABLE == NAME PARAMETER == DECLARED IN SEGMENT 10 AT 00395000 


00398000 


STREAM VARIABLE ee VALUE PARAMETER «= DECLARED IN SEGMENT 10 AT 00560000 


00561000 00565000 


STREAM VARIABLE = VALUE PARAMETER »* DECLARED IN SEGMENT 10 AT 01325000 


01326000 01330000 


STREAM VARIABLE = VALUE PARAMETER =" DECLARED IN SEGMENT 10 aT 01750000 oe 


01751000 01755000 


STREAM VARIABLE = NAMF PARAMETER = DECLARED IN SEGMENT 82 AT 01765000 


01768000 


VE =" DEFINE © DECLARED IN SEGMENT 40 AT 00147000 


00778000 


» REAL == DECLARED IN SEGMENT 36 AT 00734000 


*00749000*% 00751000 00752000 


=" FORMAT =" DECLARED IN SEGMENT 85 AT 01854000 


02093000 02111000 
ww REAL ©* NAMF PARAMETER 
00651100 


v= INTEGER =" VALUE PARAMETER 


00653000 00654000 00658500 


we Real ose NaMe PARAMETER 
00669000 *00679000« 

== REAL ©" NAMr PARAMETER 
00683000 *00692000% 

== REAL == NAME PARAMETER 
00695000 00704000 

“m" REAL =" NAME PARAMETER 
00705000 00711000 


"= INTEGER =" VALUE PARAMETER 


01811000 01812000 01816000 


DECLARED IN SEGMENT 10 AT 00651200 

=" DFCLARED IN SEGMENT 10 AT 00655000 
00664000 00665000 00666000 

DECLAREn IN SEGMENT 10 aT 00672000 

DECLARED IN SEGMENT 10 AT 00686000 

DECLARED IN SEGMENT 10 AT 00698000 

DECLARED IN SEGMENT 10 AT 00708000 


"= DECLARED IN SEGMENT 82 AT 01813000 
01818000 


TLE == FORMAT == prcLARED IN SEGMENT 43 AT 00763135 


oN 


cy 


Cc) 


00763465 
WHEN == REAL =" NAMF PARAMETER == DECLARED IN SEGMENT 10 AT 00452000 
i 00451000 00455000 00456000 ; i eo Me 
WHICH == STREAM VARIABLE = VALUE PARAMETER == DECLARED IN SEGMENT 60 AT 01115300 
01115500 01116400 
WHICH =" STREAM VARTARLE = VALUE PARAMETER *= DECLARED IN SEGMENT 10 AT 91349120 
01349130 01349380 01349320 
WHICH =" INTEGER "" DECLARED IN SEGMENT 70 aT 01357100 
WHICH =" STREAM VARIARLE ™" VALUE PARAMETER =" DECLARED IN SEGMENT 70 AT 01371110 ; - pe Ta et ae 
01371120 01371220 
WITHIN "=" BOOLEAN PROCEDURE =" DECLARED IN SEGMENT 10 AT 01332000 
*01348000% 01349000 01349560 01349600 01349630 04349680 041444000 

WITHINCODESFGMENT =" ROOLFAN PROCEDURE ** DFCLARED IN SEGMENT 10 aT 01349500 
*01349560%*01 34960040134 9630%%01349680% 01349710 01465600 01469800 

WOOPS e* ROOLEAN =" DECLARED IN SEGMENT 70 aT 01359000 ETE, BOS Bo escent 
*01401000% 04403000 *01406000* 0144143000 

WORD =" STREAM VARIABLE == NAME PARAMETER =" DECLARED IN SEGMENT 10 AT 00552000 a Seaeeen Soe 
00554000 

WORD "= REAL =" VALUE PARAMETER ©" DECLARED IN SEGMENT 56 AT 00952000 
00950000 00951000 00953000 00954000 00955000 . 

WORDMODF "= STREAM LanEL == DECLARED IN SPGMENT 70 AT 01371135 =" OCCURS aT 01371310 © - ee 
01371240 

WORDStZF os INTEGER =" VALUE PARAMETER == DECLARED IN SEGMENT 2 AT 00043000 
00041000 00042000 00048000 00049000 00057000 00058000 : ie ee eee: 

X == STREAM VARIABLE =. DECLARED IN SEGMENT 50 AT 00829110 
00892180 008229530 ; 

X == REAL, == DECLARED IN SEGMENT 60 AT 01405000 ae ee sg 
01151400 01151500 01151600 01166200 01166300 01166400 01166500 01167000 01167100 01167200 01169500 
01169550 

X =" REAL "=" DECLARFD IN SEGMENT 70 AT 01359000 
01402000 01404000 01406000 01465400 01465500 01465900 01466000 01466300 01467700 01467900 01468200 
01468300 01468400 01468450 01468600 01468800 01468900 01469100 04469200 01469500 01469800 

XA "= STREAM VARTABLE =" NAME PARAMETER ©" ‘DECLARED IN SEGMENT 29 AT 00576000 as a, 

00579000 00583000 

XB ee STREAM VARTABLE =e NAME PARAMETER = DECLARED IN SEGMENT 29 AT 00576000 
00580000 00584000 a SOR a Pe 

XCLOCK #* DEFINE == DECLARED IN SEGMENT 10 AT 00416000 
00780000 00783000 ee 

XCLOCX = DEFINE ==" DECLARED IN SEGMENT 10 AT 00431000 i ; “ee 
00783000 00784000 00800000 00801000 

XIT =" STREAM LABEL =" DECLARED IN SEGMENT 10 AT 00563000 =" OCCURS AT 00567000 


00565000 

X1T me ULapeEL =" DECLARED IN SEGMENT 36 aT 00742000 "= OccURS AT 00763000 
00747000 

XIT *" STREAM LABEL »* prcblaREp IN SEGMENT 46 AT 00771105 =" OccURS AT 00771150 Seen 
00771120 


XTT e= STREAM LABFL »* HECLARED IN SEGMENT 50 aT 00822110 == OccuURS AT 00822260 
00822160 00822470 . a ee 
X1T == LABEL =" DECLARED IN SEGMENT 70 AT 04362000 = OccCURS AT 01416000 
01403000 04409000 
XNAME =" REAL ARRAY e* DECLARED IN SEGMENT 10 AT 00089000 Beuchat cmetal ba) 
*00294000% 00916000 00918000 00919000 01396000 
XNAMS =" REAL ARRAY »™= DECLARED IN SEGMENT 10 AT 00090000 
00291000 00918000 00919000 01396000 
XNAMS =" STREAM VARIARLE 7 NAME PARAMETER ©" DECLARED IN SEGMENT 12 AT 00248000 
00250000 
XSNAMF == DEFINE ==" DECLARED IN SEGMENT 10 aT 00091000 : fs ie se ee eee 


Cy 


(> 


Ce Se vox 26). 307 3G 


00946000 


XX == LABEL == DECLARED IN SEGMENT 19 AT 00080500 = OCCURS AT 02173760 


02173750 
X{ osm FORMAT == DEC|ARED IN SEGMENT 22 AT 00438000 
XIMARKXI == FORMAT ©» DECLARED IN SEGMENT 22 AT 00441000 

00786000 

Y om= REAL == DECLARED IN SEGMENT 27 AT 004966000 

00479000 00480000 00494000 
Yo" STREAM VARIABLE "= OEFCLARED IN SEGMENT 50 aT 00822110 

*00822220% 00822250 
Yos™ REAL @*" DECLARED IN SEGMENT 70 AT 01359000 


*01404000% 01405000 04406000 04412000 *01418510% 04418540 «01466000% 01466100 


01468400 01468450 01469500 01469700 01470000 


YEAR ™" INTEGER ©" NAME PARAMETER #™ DECLARED IN SEGMENT 10 AT 00464000 


00461000 *00494000« 


YEAR ™=" STREAM VARIABLE "=" NAME PARAMETER w= DECLARED IN SEGMENT 27 AT 00469000 


00474000 
YEARS **" EFINE =" DECLARED IN SEGMENT 10 AT 00429000 
00778000 00788000 00791000 00793000 
YECH ™* NeFINE =" porcbaREp IN SEGMENT 10 AT 00164295 
Z =" NTFBFR == DECLARED IN SEGMENT 29 aT 00589000 
*00594300x 00596000 00602000 00606000 00640400 00645000 
00644000 00644;00 00648000 
ZEROK == BOOLEAN == DECLARED IN SEGMENT 56 AT 00946000 
*00968000% 00976000 00976300 00976300 00999400 04000000 
Zi == INTEGER = DECLARED IN SEGMENT 29 AT 00589000 
*00594300% 00608000 00617000 


CROSS REFERENCE STATISTICS 


Sama 7 on OF oe on OO me oe pe OF OD ae gy, om 


PHASE ONE # SORT 963 1DENTIFIERS 
0%36 ELAPSED TIME ¢MINISEC) 
0918 PROCESSOR TIME 
0934 170 TIME 


PHASE TWO = SORT 6233 REFERENCES 
0146 ELAPSED TIME (MIN#SEC) 
044 PROCESSOR TIME 
0:08 1/0 TIME 


PHASE THREE @ PRINT CROSS REFERENCE ¢ 2013 LINES) 
Or4a4 ELAPSED TIME CMINSSEC) 
0:32 PROCESSOR TIME 
0322 1/0 TIME 


LABEL, O00000000L1NE 00177311? COMPILE DUMP/ANALYZE ALGOL LyBRARY 


006149000 00630000 


04005000 


01466400 01468200 04468300 


00638000 00641000 00642000 


ALGOL 


“DUMP 


iN 


fy 


C) 


